toplevel' (x:xs) = do expr <- parseExpr x
                      _ <- eval expr
                      toplevel' xs
toplevel' (x:xs) = do expr <- parseExpr x
                      _ <- eval expr
                      toplevel' xs
toplevel' (x:xs) = do expr <- parseExpr x
                      _ <- eval expr
                      toplevel' xs