prettyField16 :: String -> Word16 -> PP.Doc
prettyField16 str (-1) = prettyField str "-1"
prettyField16 :: String -> Word16 -> PP.Doc
prettyField16 str (-1) = prettyField str "-1"
prettyField16 str (-1) = prettyField str "-1"