-module(p). -export([m/0]). m()->io:fwrite(p("012345")). p([A])->[[A,10]];p(L)->[[H,32|T]||H<-L,T<-p(L--[H])].