Hi list, Iım new at functional programming so I was wondering if someone
could help me translate the following caml code to scheme code, thanks

let rec sublists =
        function [] -> [[]]
                | x::l -> let sl = sublists l
                            in sl @ (map (fun l -> x::l) sl);;