Consider I have:
data family P a
data instance P () = C1 (S.Set Int) | C2 -- and may be other constructors
let x = C1 (S.fromList mempty)
    y = C2
Is it a way to write a function which is able to get from x a String "C1" and from y - "C2"? Like:
cstrStringName :: ... -> String
cstrStringName = ...
