
 cr chans cr
in-cons ch-id " Y loading id: "
        -count type d$.
 if-found !chname ." file: " pad in-cons !chname pad -print space
         cr

: probey0 ." fr das Laden mit chain " ;
        here $. .s
: probey1 ." dies ist "
                " probe 'Y' " -print
probey0 ;
        probey1
                bell
 {Y emit space
                   here $. sp@ $. .s cr
        end
