(a:b)%x=[p:q|p<-x,q<-b%filter(/=p)x,p<a||q<b]
a%x=[x]
main=mapM putStrLn$"1/3/236/6"%['0'..'9']