getStarts :: Bam1 -> (Int, Int)
getStarts bam = let p1 = fromIntegral . fromJust . position $ bam
                    p2 = fromIntegral . fromJust . matePosition $ bam
                    l = fromIntegral . fromJust . queryLength $ bam
                    p1' | isReverse bam = p1 + l
                        | otherwise = p1
                    p2' | isReverse bam = p2 + l
                        | otherwise = p2
                in (p1', p2')
getStarts :: Bam1 -> (Int, Int)
getStarts bam = let p1 = fromIntegral . fromJust . position $ bam
                    p2 = fromIntegral . fromJust . matePosition $ bam
                    l = fromIntegral . fromJust . queryLength $ bam
                    p1' | isReverse bam = p1 + l
                        | otherwise = p1
                    p2' | isReverse bam = p2 + l
                        | otherwise = p2
                in (p1', p2')
getStarts bam = let p1 = fromIntegral . fromJust . position $ bam
                    p2 = fromIntegral . fromJust . matePosition $ bam
                    l = fromIntegral . fromJust . queryLength $ bam
                    p1' | isReverse bam = p1 + l
                        | otherwise = p1
                    p2' | isReverse bam = p2 + l
                        | otherwise = p2
                in (p1', p2')