putNominal :: String -> Value -> Put
putNominal _ (NominalValue x) = putAsciiStr (show x)
putNominal :: String -> Value -> Put
putNominal _ (NominalValue x) = putAsciiStr (show x)
putNominal _ (NominalValue x) = putAsciiStr (show x)