Scanf.scanf"%d %d"(fun a b->print_string[|"1 1 2 2 2";"1 1 0 0 1 1 16 36 41 45 49 34 29 42 54 47 60 59 15 15 24 48 54 0 0 1 0 0 0 1 1 1 7 12 3 3 6 11 14 11 14 13 13 1 1 1 1 1 0 1 0"|].(b/7))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).