reactionOn :: SpecialKey -> Scene -> Scene
reactionOn KeyLeft = movePieceLeftInScene
reactionOn :: SpecialKey -> Scene -> Scene
reactionOn KeyLeft = movePieceLeftInScene
reactionOn KeyLeft = movePieceLeftInScene