(prall(sort <(dedup:accum a(for i 1(read)(for j 1 i(a:/ j i)))))"0/1
""
")pr!/1