let parquet_check_prefix ic = 
  let par = really_input_string ic 4 in
  "PAR1" = par
  
let parquet_check_suffix ic =
  let len = in_channel_length ic in
  seek_in ic (len - 4);
  let par = really_input_string ic 4 in
  "PAR1" = par