L PP Lista 9 Oz

%Zad2
declare
fun {Insert Slownik#Slowo}
   local fun {Ins Snk}
        case Snk
        of H|T then local wyraz(Swo#Wyst)= H in
               if Swo==Slowo then wyraz(Swo#Wyst+1)|T
               elseif Slowo<Swo then wyraz(Slowo#1)|H|T
               else H|{Ins T}
               end
            end
           [] nil then [wyraz(Slowo#1)]
        end
     end
   in {Ins Slownik} end
end

{Show {Insert{Insert{Insert {Insert nil#1}#2}#1}#0}}