0 loop \

: loop ( i -- n )
    ( i++ ) ^
    " draw 
    " total_size < #? loop
;

: total_size 24 80 * ;

: draw ( i -- )
    ( very bad pseudo random number generation ) 7867 * 255 / 2 %
    ( slash: 47; backslash: 92 ) 45 * 47 +
    ( print character ) 5 !
;