toplevel' [x]    = do expr <- parseExpr x
                      result <- eval expr
                      return $ show result
toplevel' [x]    = do expr <- parseExpr x
                      result <- eval expr
                      return $ show result
toplevel' [x]    = do expr <- parseExpr x
                      result <- eval expr
                      return $ show result