transStm x = case x of
SExp exp -> failure x
SBlock stms -> failure x
+ SDecl type' id exp -> failure x
+ SDeclD type' id -> failure x
SWhile exp stm -> failure x
SIf exp stm0 stm -> failure x
SPrint exp -> failure x
SNoop -> failure x
- SDecl type' id exp -> failure x
transExp :: Exp -> Result