[racket][htdp] random-balls: make it plaintext