let main () =
let packet = B64.decode sample_packet_base64 in
let packet = Bitstring.bitstring_of_string packet in
- ( bitmatch packet with
+ bitmatch packet with
| { "DATA" : 4 * 8 : string
; "@" : 1 * 8 : string
; blocks : -1 : bitstring
} ->
let blocks = split blocks in
- List.iter (fun b -> print_endline (Datum.show (Datum.of_bitstring b))) blocks;
- )
+ List.iter (fun b -> print_endline (Datum.show (Datum.of_bitstring b))) blocks
let () = main ()
\ No newline at end of file