2{(%stdin)(r)file 99 string readline pop}repeat exch cvi 1 sub dup -1 0{2
index{( )dup 0 4 3 roll put dup print 2 index 1 sub{1 index 3 index mod 0
eq{dup}{( )}ifelse print}repeat print}forall pop()=}for