g <- newgame() |>
chess_move("p", "e2", "e4") |>
chess_move("p", "e7", "e5") |>
chess_move("N", "g1", "f3") |>
chess_move("N", "b8", "c6") |>
chess_move("B", "f1", "b5") |>
chess_move("N", "g8", "f6") |>
chess_move("K", "e1", "0-0")|>
chess_move("N", "f6", "e4")
moves_scoresheet(g)
Run the code above in your browser using DataLab