untypeStmt' (Create typeMb targ name es) = 
  Create typeMb (untypeExpr targ) name (map untypeExpr es)
untypeStmt' (Create typeMb targ name es) = 
  Create typeMb (untypeExpr targ) name (map untypeExpr es)
untypeStmt' (Create typeMb targ name es) = 
  Create typeMb (untypeExpr targ) name (map untypeExpr es)