formatStmt (Prints (Show idents) _) =
  text "show" <> parens (commasep $ map formatIdent idents)
formatStmt (Prints (Show idents) _) =
  text "show" <> parens (commasep $ map formatIdent idents)
formatStmt (Prints (Show idents) _) =
  text "show" <> parens (commasep $ map formatIdent idents)