%convert a list into singleton declare L=[e f c b d a] L1 Singleton L3 fun {Singleton L} case L of nil then nil []H|T then [H]|{Singleton T} end end L3 = {Singleton L} {Browse {Singleton L}}