-module x.
-export[m/0].
m()->F={io_lib,write},[io:format([case["Clap"||C<-F(N),"369"--[C]/="369"]of[]->F(N);S->S end,10])||N<-lists:seq(1,1000)].