type Player = { x : int; y : int; }

let player = {
  x = 0;
  y = 0;
}

let run player =
  match keyboard with
  | 'u' -> run { player with y = player.y - 1 }
  | 'd' -> run { player with y = player.y + 1 }
  | 'l' -> run { player with x = player.x - 1 }
  | 'r' -> run { player with x = player.x + 1 }

let main argv =
  run player
  0