p[a]=[[a]]
p a=[b:' ':c|b<-a,c<-p[i|i<-a,i/=b]]
main=mapM putStrLn$p"012345"