read-num
sub-power-of-2
new-line
@0
3
%
w( "Composite :(" "Prime :)" )
get