Run-length encoding in Racket