//
proc main;
	$max  = %2 ? (CINT)%2 : 40;
	aho_c = %3 ? %3 : 3;
	aho_i = (CINT)aho_c;
	aho  = ' ƒAƒz';
//print $max aho_c aho_i ;
	count = 0;
	switch ((CINT)%1);
	case 0;
		loop for (i=1;i<=$max;i++);
//print "i % aho_i";
			if (!(i % aho_i) || instr(i,aho_c));
				putline('i=',i,aho);
				count++;
			else;
				putline('i=',i);
			end if;
		end loop;
	case 1;
		loop for (i=1;i<=$max;i++);
			putline('i=',i,(!(i % aho_i) || instr(i,aho_c))?(count++,aho):'');
		end loop;
	default;
		i=1;
		loop $max;
//print "i mod aho_i";
			putline('i=',i,(!(i % aho_i) || instr(i,aho_c))?(count++,aho):'');
			i++;
		end loop;
	end switch;
	putline('count=',count);
	return ERROR;
end proc;
