formatStmt (Prints (Print str) _) =
  text "print" <> parens (text (show str))
formatStmt (Prints (Print str) _) =
  text "print" <> parens (text (show str))
formatStmt (Prints (Print str) _) =
  text "print" <> parens (text (show str))