EVar id -> prPrec i 3 (concatD [prt 0 id])
EInt n -> prPrec i 3 (concatD [prt 0 n])
ENeg exp -> prPrec i 3 (concatD [doc (showString "-") , prt 3 exp])
+ ENot exp -> prPrec i 3 (concatD [doc (showString "!") , prt 3 exp])
EBool bool -> prPrec i 3 (concatD [prt 0 bool])
EReadI -> prPrec i 3 (concatD [doc (showString "readInt")])
EReadB -> prPrec i 3 (concatD [doc (showString "readBool")])