public static void main(String[] args) throws IOException {
        long begin = System.currentTimeMillis();
        int N=Integer.valueOf(args[0]);
        TreeSet<Rational> ts=new TreeSet<Rational>();
        for(int i=1;i<=N;i++){
            for(int j=1;j<=N;j++){
                if (i<j){
                    ts.add(new Rational(i,j));
                }
            }
        }
        String fullPath = ""+N+".txt";
        Writer w = new FileWriter(fullPath);
        for(Rational r : ts){
            w.write(r.toString());
            w.write("\n");
        }
        w.close();
        System.out.println("Wrote "+fullPath+", elapsed (sec) "+(System.currentTimeMillis()-begin)/1000);
    }

import Data.Ratio

main = putStr (show last10OfFirst20000)


--берем первых 20000 элементов, и отбрасываем первые 19990
last10OfFirst20000 = drop 19990 $ take 20000 _10000SortedRationals

-- строим отсортированную последовательность рациональных чисел, 
--с числителем к, и знаменателем от к+1 до н
rats n k = map ((%) k) [n, n-1..k+1]

-- строим н последовательностей, для каждого числителя от 1 до н
rows n = map (rats n) [1..n]

--берем 10000 отсортированных последовательностей,
--и мержим их в одну отсортированную последовательность без дубликатов.
_10000SortedRationals = foldl merge [] (rows 10000)

--функция принимает две отсортированных последовательности без дубликатов
--и возвращает смерженную отсортированную последовательность без дубликатов.
merge [] s2 = s2
merge s1 [] = s1
merge (s1:s1s) (s2:s2s) 
    | s1 < s2   = s1 : (merge s1s      (s2:s2s))
    | s1 > s2   = s2 : (merge (s1:s1s) s2s)
    | otherwise = s1 : (merge s1s      s2s)