{Code by SoundOfSpouting#6980 (UID: 151149148639330304)}
{This prime tester may randomly call some primes composite for large inputs depending on the FALSE interpreter you use.
This is due to integer overflow. In theory, it should correctly label all numbers below 2^16.}
[$@$@/@*-]m:
0^[$1+][48-\10*+^]#%$1-[$1&1-$[%2=$["1"]?~["0"]?1_$]?~[
	$n:0\1-[$1&1-][\1+\2/]#d:r:
	1 0 61 7 2
	[$][a:1
		d;
		[$][1-\a;*n;m;!\]#
		%$$$1=\n;1-=|~&
		$[
			%0\r;
			[1-$][
				\$*n;m;!
				$n;1-=[@%1_@@]?
				\
			]#
			%%$~["0"1_0 0 1_]?
		]?~[%]?
	]#
	%["1"1_]?
]?
]?~["0"]?
