(define try-all (lambda (inlist out)
   (begin
      (if (null? inlist)  (begin (cycle) (get out))
          (begin
                (echo "-- " (car inlist) " <- 0")
                (set (car inlist) 0)
                (cycle)
                (try-all (cdr inlist) out)
                (echo "-- " (car inlist) " <- 1")
                (set (car inlist) 1)
                (cycle)
                (try-all (cdr inlist) out)
          )
      )
    )
  )
)