inWord16 :: ArgIn Word16
inWord16 i               = writeVarWord (fromIntegral i)
inWord16 :: ArgIn Word16
inWord16 i               = writeVarWord (fromIntegral i)
inWord16 i               = writeVarWord (fromIntegral i)