Function F($d)
   dim $u,$,$i,$j,$a[255],$b[255,15],$t[255]
   $u = ubound($d)
   for $j=0 to $u
      for $i=0 to $u
         $F=$d[$j]+$d[$i]
         $a[$u*$j+$j+$i]=$F
         $=ascan($a,$F)
         if 0=$b[$,$j] + $b[$,$i] + ($i=$j)
            $b[$,$j]=1
            $b[$,$i]=1
            $t[$]=$t[$]+2
            if $t[$]=$u+1
               exit
            ;endif
         ;endif
      ;next
   ;next 
EndFunction