main :: IO ()
main = do
  bs <- BS.readFile f1
  let r :: ExchangeFile
      r = B.decode bs
  print $ ddr r
  let rs = records r
  print rs
  --print $ take 5 $ filter (hasRecordField "DSPR") rs
  where f = "/home/alios/tmp/ENC_ROOT/US3AK21M/US3AK21M.000"
        f1 = "/home/alios/tmp/ENC_ROOT/CATALOG.031"
main :: IO ()
main = do
  bs <- BS.readFile f1
  let r :: ExchangeFile
      r = B.decode bs
  print $ ddr r
  let rs = records r
  print rs
  --print $ take 5 $ filter (hasRecordField "DSPR") rs
  where f = "/home/alios/tmp/ENC_ROOT/US3AK21M/US3AK21M.000"
        f1 = "/home/alios/tmp/ENC_ROOT/CATALOG.031"
main = do
  bs <- BS.readFile f1
  let r :: ExchangeFile
      r = B.decode bs
  print $ ddr r
  let rs = records r
  print rs
  --print $ take 5 $ filter (hasRecordField "DSPR") rs
  where f = "/home/alios/tmp/ENC_ROOT/US3AK21M/US3AK21M.000"
        f1 = "/home/alios/tmp/ENC_ROOT/CATALOG.031"