type test = Lol | Lolo `missing stuff`
let print_test ele = match ele with
    | Lol -> print_string "Lol\n"
    | Lolo -> print_string "Lolo\n"
in
let a = Lol in
let b = Lolo in
print_test a;
print_test b;;