open List
let n=read_float()let rec f i j l=let m=((j/.i),(j,i))::remove_assoc(j/.i)l in
j>0.&f i(j-.1.)m||i=1.&[]<map(fun(a,(b,c))->Printf.printf"%.f/%.f
"b c)(Sort.list(<)m)||f(i-.1.)(i-.1.)m;;f n n[]