findTriplet :: [NS.Nibble] -> Maybe NS.Nibble
findTriplet ns = listToMaybe triplets
  where
    triplets = map head . filter (\[a, b, c] -> a == b && b == c) $ windows 3 ns
findTriplet :: [NS.Nibble] -> Maybe NS.Nibble
findTriplet ns = listToMaybe triplets
  where
    triplets = map head . filter (\[a, b, c] -> a == b && b == c) $ windows 3 ns
findTriplet ns = listToMaybe triplets
  where
    triplets = map head . filter (\[a, b, c] -> a == b && b == c) $ windows 3 ns