implementation of beebster in racket