(define (separate salv)
  (let-values (((scms wmls)
                (partition (lambda (x) (eqv? (car x) '@scheme))
                           salv)))
    (values wmls
            (append-map cdr scms))))