···25252626(* Encode a CLCW *)
2727let () =
2828- let vcid = Clcw.vcid_exn 10 in
2929- let clcw = Clcw.v ~vcid ~report_value:50 ~lockout:true () in
2828+ let clcw = Clcw.v ~vcid:10 ~report_value:50 ~lockout:true () in
3029 let word = Clcw.encode clcw in
3130 Printf.printf "Encoded: 0x%08X\n" word
3231```