

in-cons ch-id " X loading id: "
        -count type d$.
        -forget probe0
         here $. .s cr
: probe0 ." fr das Laden mit chain " ;
        here $. .s
: probe1 ." dies ist eine "
                " probe " -print
       [ here $. .s cr ]
probe0 ;
        probe1
                     bell .s cr
 {X emit space cr

 ftest ram1_z 0= if-true chain ram1_z
 ftest ram1_y 0= if-true chain ram1_y

                   here $. in-cons ch-id d$. work ch-id d$.
                   sp@ $. .s
        end
