parseToplevel :: String -> Either ParseError (Name, Expr)
parseToplevel = parse (whiteSpace tok *> toplevel <* eof) "interactive"
parseToplevel :: String -> Either ParseError (Name, Expr)
parseToplevel = parse (whiteSpace tok *> toplevel <* eof) "interactive"
parseToplevel = parse (whiteSpace tok *> toplevel <* eof) "interactive"