Append implementation for https://courses.edx.org/courses/course-v1:LouvainX+Louv1.1x+3T2016

append.oz

local AppendLists in
   fun {AppendLists L1 L2}
      local Aux in
         fun {Aux List Acc}
            case List of
               Head|Tail then {Aux Tail (Head | Acc)}
            else Acc
            end
         end
         {Aux {Reverse L1} L2}
      end
   end
   {Browse {AppendLists [1 2 3] [4 5 6]}}
end

fun {AppendList L1 L2} local Head in fun {Head H|T} if (T == nil) then H | L2 else H | {Head T} end end if (L1 == nil) then L2 else {Head L1} end end end