Duncan Online

let print_char_list = function x ->
   let print_char_item item =
      print_char item
   in List.iter print_char_item x;
   print_newline();;

let _ =
   let flist1 = [0x46;0x61;0x62;0x69]
   and flist2 = [0x65;0x6E;0x6E;0x65]
   in let flist = List.append flist1 flist2
   in print_char_list
      (List.map char_of_int flist);;