declare
   fun lazy {Times N H}
      case H of nil then
	 nil
      [] Head|Tail then
	 Head*N | {Times N Tail}
      end
   end
   fun lazy {Merge Xs Ys}
      case Xs of nil then
	 Ys
      [] X|Xr then
	 case Ys of nil then
	    nil
	 [] Y|Yr then
	    if X < Y then
		 X|{Merge Xr Ys}
	      elseif X > Y then
		 Y|{Merge Xs Yr}
	      else
		 X|{Merge Xr Yr}
	      end
	 end
      end
   end
   proc {Touch N H}
      case H of nil then
	 {System.showInfo "koniec"}
      [] Head|Tail then
	 if N > 0 then
	    {System.showInfo Head}
	    {Touch N-1 Tail}
	 end
      end
   end
   fun {Hamming H N}
      if N > 0 then
	 H | {Hamming {Merge {Merge {Times 2 H}  {Times 3  H}} {Times 5 H}} N-1}
      else
	 nil
      end
   end
in
   {Touch 10 {Hamming [1] 100}}
end
 

ZGVjbGFyZQogICBmdW4gbGF6eSB7VGltZXMgTiBIfQogICAgICBjYXNlIEggb2YgbmlsIHRoZW4KCSBuaWwKICAgICAgW10gSGVhZHxUYWlsIHRoZW4KCSBIZWFkKk4gfCB7VGltZXMgTiBUYWlsfQogICAgICBlbmQKICAgZW5kCiAgIGZ1biBsYXp5IHtNZXJnZSBYcyBZc30KICAgICAgY2FzZSBYcyBvZiBuaWwgdGhlbgoJIFlzCiAgICAgIFtdIFh8WHIgdGhlbgoJIGNhc2UgWXMgb2YgbmlsIHRoZW4KCSAgICBuaWwKCSBbXSBZfFlyIHRoZW4KCSAgICBpZiBYIDwgWSB0aGVuCgkJIFh8e01lcmdlIFhyIFlzfQoJICAgICAgZWxzZWlmIFggPiBZIHRoZW4KCQkgWXx7TWVyZ2UgWHMgWXJ9CgkgICAgICBlbHNlCgkJIFh8e01lcmdlIFhyIFlyfQoJICAgICAgZW5kCgkgZW5kCiAgICAgIGVuZAogICBlbmQKICAgcHJvYyB7VG91Y2ggTiBIfQogICAgICBjYXNlIEggb2YgbmlsIHRoZW4KCSB7U3lzdGVtLnNob3dJbmZvICJrb25pZWMifQogICAgICBbXSBIZWFkfFRhaWwgdGhlbgoJIGlmIE4gPiAwIHRoZW4KCSAgICB7U3lzdGVtLnNob3dJbmZvIEhlYWR9CgkgICAge1RvdWNoIE4tMSBUYWlsfQoJIGVuZAogICAgICBlbmQKICAgZW5kCiAgIGZ1biB7SGFtbWluZyBIIE59CiAgICAgIGlmIE4gPiAwIHRoZW4KCSBIIHwge0hhbW1pbmcge01lcmdlIHtNZXJnZSB7VGltZXMgMiBIfSAge1RpbWVzIDMgIEh9fSB7VGltZXMgNSBIfX0gTi0xfQogICAgICBlbHNlCgkgbmlsCiAgICAgIGVuZAogICBlbmQKaW4KICAge1RvdWNoIDEwIHtIYW1taW5nIFsxXSAxMDB9fQplbmQK