Rosetta Code RPG task in Racket