(let loop () (let/ec break (define a (read)) (when (= a 42) (break)) (writeln a) (loop)))