как сделать нежадным many1?
#lang racket
(require (lib "parsack"))
(define $sep (char #\ ))
(define $cell (many1 $anyChar))
(define $cells (parser-cons $cell $rest))
(define $rest (<or> (parser-cons $sep $cells)
(return null)))
(parse-result $cells "asd asdf")
'((#\a #\s #\d) #\space (#\a #\s #\d #\f))