lsum(printf(?t,"~a/~a
",num(k),denom(k)),k,listify(union(setify(create_list(j/i,i,1,?read(),j,0,i)))));