generate :: GetNextToken -> IO String
generate = fmap smartJoin . tokensFrom Start
generate :: GetNextToken -> IO String
generate = fmap smartJoin . tokensFrom Start
generate = fmap smartJoin . tokensFrom Start