bgraf

open! Base

let input =
  let parse_command part =
    let direction = part.[0] in
    let length = String.drop_prefix part 1 |> Int.of_string in
    direction, length
  in
  Stdio.In_channel.read_lines "input"
  |> List.map ~f:(fun line ->