100 <iota> [ semiprime? ] filter [ pprint bl ] each nl