<<>> <> <> <> <<>> (define (wire-visit wire each-wire) (define size (wire-size wire)) (do ((i 0 (+ i 1))) ((= i size)) (each-wire (wire-child wire i)) ) )