hmm.rkt

(define groups-of
  (case-lambda
    [(n lst) (groups-of n n lst)]
    [(n step lst)
     (cond
       [(empty? lst) '()]
       [(< (length lst) n) (list lst)]
       [else (cons (take lst n) (groups-of n step (drop lst step)))])]))