let rec printSub sub =
    match sub with
        | ((_, _)::tail, _, _) ->
            printSub tail;
        | [] -> ()
;;