f x y = let ls = x + 1;
            rs = y - 1 in
                          (ls,rs)
f x y = let ls = x + 1;
            rs = y - 1 in
                          (ls,rs)
f x y = let ls = x + 1;
            rs = y - 1 in
                          (ls,rs)