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