when game is first loaded, assign parsed controls (or at least default controls) to imperative shell's state

shell/gl-draw.sml

@@ -278,6 +278,8 @@ struct
             , jump = CoreKey.KEY_Z
             , attack = CoreKey.KEY_X
             }
+
+      val () = InputState.setControls controls
     in
       helpLoop (shellState, GameType.initial controls)
     end