function
	`input local =
	0 'isaprime' local =
	1 input sqrt 2 for
		input \ %
		0 ==
		isaprime or 'isaprime' local =
	end
	1 isaprime -
end `isprime =