splitAt2 :: Int -> Int -> [a] -> ([a], [a], [a])
splitAt2 i j xs = let (q,  r3) = splitAt j xs
                      (r1, r2) = splitAt i q
                  in (r1, r2, r3)