rec("abcd")
Function rec(s:String,p:String="")
	If Len(s) = 1 Then
		Print p+s
		Return
	EndIf
	For i=1 To Len(s)
		rec(Right$(s,Len(s)-1),p+Mid$(s,i,1))
	Next
End Function