runToEventPacket :: Topped AccessNr -> ControlPacket
runToEventPacket x = ControlPacket 0x124e $ fromAN x
runToEventPacket :: Topped AccessNr -> ControlPacket
runToEventPacket x = ControlPacket 0x124e $ fromAN x
runToEventPacket x = ControlPacket 0x124e $ fromAN x