splitPairsAt :: Int -> [(b, b1)] -> ([b], [(b, b1)])
splitPairsAt n l = (map fst h, t)
    where
        (h, t) = splitAt n l
splitPairsAt :: Int -> [(b, b1)] -> ([b], [(b, b1)])
splitPairsAt n l = (map fst h, t)
    where
        (h, t) = splitAt n l
splitPairsAt n l = (map fst h, t)
    where
        (h, t) = splitAt n l