import qualified Data.Text as T
import Data.Char


main :: IO ()
main = do
  let c = chr 56319
      t = T.pack [c]
      c' = head $ T.unpack t
  print c
  print (generalCategory c)
  print t
  print c'
  print (generalCategory c')
  print (c == c')