compress

[procedure] compress blist list

Chicken

 (define nums '(99 100 110 401 1234))
 (compress (map odd? nums) nums)      ==> (99 401)