axel-0.0.1: examples/do/app/Main.hs

import Axel.Parse.AST as AST
do' :: ((->) ([] AST.Expression) AST.Expression)
do'  = (\aXEL_AUTOGENERATED_IDENTIFIER_0 -> (case aXEL_AUTOGENERATED_IDENTIFIER_0 of {((:) var ((:) (AST.Symbol "<-") ((:) val rest))) -> (AST.SExpression (concat [[(AST.Symbol ">>=")],[val],[(AST.SExpression (concat [[(AST.Symbol "fn")],[(AST.SExpression (concat [[var]]))],[(do' rest)]]))]]));((:) val rest) -> (case rest of {[] -> val;_ -> (AST.SExpression (concat [[(AST.Symbol ">>")],[val],[(do' rest)]]))})}))
main :: (IO ())
main  = ((>>=) getLine (\line -> ((>>) (putStrLn line) (pure ()))))