local Split L1 L2 in
   proc {Split L L1 L2}
      case L of nil then
     L1 = nil
     L2 = nil
      [] H|T then
     local A B in
        L2 = A
        L1 = H|B
        {Split T A B}
     end

      end
   end

   {Split [1 2 3 4 5] L1 L2}
   {Browse L1}
   {Browse L2}
end