:fu P(a,n)
:if a:n>5|let@v=@v.a:a."\n"|el|let i=0|wh i<6|if stridx(a:a,i)<0|cal P(a:n?(a:a." ".i):i,a:n+1)|en|let i=i+1|endw|en
:endf
:ec P("",0)
i=@v
ZZ