+ g (Op1Expr _ UnNegation e) = g e >>| tell [Instr "not" [] ""]
+ g (Op1Expr _ UnMinus e) = g e >>| tell [Instr "neg" [] ""]
+ g (EmptyListExpr _) = abort "Shit, empty list expr"
+ g (TupleExpr p (e1,e2)) = abort "How to deal with tuples?"
+ g (FunExpr _ k es fs) = mapM g es >>| jump "bra" k >>= \instr-> tell [instr]