REBOL[]repeat i n: do input[repeat j n[a: i b: j while[b > 0][t: mod a b a: b b: t]prin [either(a = 1)['t][" "]]]print""]