require random.fs : randomize ( -- r ) utime drop seed ! \ Initialiser la graine 10 0 do i cr . 3 random . loop \ génère un nombre aléatoire entre 0 et 2 ; randomize .