function a($b,$c)
    dim $,$d,$e
    $a=0
    for each $ in $b
        if left($,1)=$c[0]
            dim $f
            for each $d in $b
                dim $g
                for $e=2 to 0|$
                    if instr($d,right($,$e))=1
                        $g=$e
                    endif
                next
                if $g
                    if $d<>$
                        $f=$f+$g+1
                        $=$+' '+$d
                    endif
                    if right($,1)=$c[1]
                        $g=($|)-$f
                        if $g<$a|1>$a
                            $a=''+$g+' '+$
endfunction