formatStmt (Call id args _) =
  text "call" <+> formatIdent id <> parens (commasep $ map formatIdent args)
formatStmt (Call id args _) =
  text "call" <+> formatIdent id <> parens (commasep $ map formatIdent args)
formatStmt (Call id args _) =
  text "call" <+> formatIdent id <> parens (commasep $ map formatIdent args)