#!/usr/bin/perl
for($i=1;$i<=1000;$i++){
        @j = split(//,$i);
        $clap_is_true = 0;
        if (($j[0] == "3" ) || ($j[0] == "6") || ($j[0] == "9")){
                $clap_is_true = $clap_is_true + 1;
        }

        if (($j[1] == "3" ) || ($j[1] == "6") || ($j[1] == "9")){
                $clap_is_true = $clap_is_true + 1;
        }

        if (($j[2] == "3" ) || ($j[2] == "6") || ($j[2] == "9")){
                $clap_is_true = $clap_is_true + 1;
        }

        if(($clap_is_true) >0) {
			for($k=0;$k<$clap_is_true;$k++) {
				print "Clap";
            }
        }
        else {
			print $i;
        }
        print "\n";
}
exit 0;