add procedure unique-pairs and rewrite procedure prime-sum-pairs