| Int n -> sprintf "(fromIntegral %s)" n
| FileIn n | FileOut n | String n | OptString n | StringList n -> n
) (snd style) in
| Int n -> sprintf "(fromIntegral %s)" n
| FileIn n | FileOut n | String n | OptString n | StringList n -> n
) (snd style) in