rewrite 010.scm to use math.prime