["{\n\t":printersperse "\n\t" vs] ++
["\n":printStatements ss 1] ++ ["}\n"]
+instance toString FunDecl where
+ toString fd = concat $ print fd
+
printStatements :: [Stmt] Int -> [String]
printStatements [] i = []
printStatements [s:ss] i = (case s of