நிரல்பாகம்  hailstone ( எண் )
           பதிப்பி "=> ",எண் #hailstone seq
	    @( எண் == 1 )   ஆனால் 	
	        பின்கொடு எண்
	    முடி

	      @( (எண்%2) == 1 )  ஆனால்
	      	   hailstone( 3*எண் + 1)
              இல்லை
	           hailstone( எண்/2 )
              முடி
முடி


எண்கள் = [5,17,19,23,37]
@(எண்கள் இல் இவ்வெண்) ஒவ்வொன்றாக
   பதிப்பி "****** calculating hailstone seq for ",இவ்வெண்," *********"
   hailstone( இவ்வெண் )
   பதிப்பி "**********************************************"
முடி