section0 :: Parser Section0
section0 = header *> (Section0 <$> anyWord8 <*> anyWord64)
    where
      header = string "GRIB" *>
               word16 0xffff *>
               word8 0
section0 :: Parser Section0
section0 = header *> (Section0 <$> anyWord8 <*> anyWord64)
    where
      header = string "GRIB" *>
               word16 0xffff *>
               word8 0
section0 = header *> (Section0 <$> anyWord8 <*> anyWord64)
    where
      header = string "GRIB" *>
               word16 0xffff *>
               word8 0