if p then "(" ++ s ++ ")" else s

instance VSerialise UNIT where
    vreadPrec' _ s = cas
_surround ∷ Bool → String → String
_surround p s = if p then "(" ++ s ++ ")" else s
_surround p s = if p then "(" ++ s ++ ")" else s