inChar :: ArgIn Char
inChar i               = writeVarByte (fromIntegral (fromEnum i))
inChar :: ArgIn Char
inChar i               = writeVarByte (fromIntegral (fromEnum i))
inChar i               = writeVarByte (fromIntegral (fromEnum i))