minimum
x
x=1
a!b=(a#b)1
(n#l)x|x<n=minimum$(n#l).(x*)<$>l|1>0=x
n
l
(#1);(l#x)n|x<n=minimum[(l#(x*e))n|e<-l]|1>0=x
:t
:
t
:r
it
:help