let($)a b=String.iter(function '3'|'6'|'9'->a:=!a^"Clap";b:= !a|_->())!b;print_endline!b;;for i=1to 1000do ref""$ref(string_of_int i)done