}
;)]2[vgra ,]1[vgra(ypoCeliF  
}  
;)1(tixe    
;"n\eliftsd elifcrs tuo.a :egasU" << rrec    
{ )3 =! cgra( fi  
{
)][vgra * rahc ,cgra tni(niam

}
;)DFot(esolc ;)DFmorf(esolc  
}  
};nruter ;"n\rorrE" << rrec{ )0 < n( fi    
;)1 ,hc& ,DFot(etirw = n    
elif fo dne //   ;kaerb )0 =< n( fi    
;)1 ,hc& ,DFmorf( daer = n tni    
;hc rahc    
{ )1( elihw  
}  
;nruter ;)DFmorf(esolc    
 ;"n\" << eliFot <<" gninepo rorrE" 	
<< rrec    
{ )0 < DFot( fi  
;)6660 ,eliFot(taerc = DFot tni  
}  
;nruter ;"n\" << eliFmorf << " gninepo rorrE" << rrec    
{ )0 < DFmorf( fi  
;)YLNODR_O ,eliFmorf(nepo = DFmorf tni  
{ )eliFot* rahc ,eliFmorf* rahc(ypoCeliF diov

;dts ecapseman gnisu

>maertsoi< edulcni#
>h.bildts< edulcni#
>h.oidts< edulcni#
>h.ltncf< edulcni#
>h.dtsinu< edulcni#
>h.sepyt/sys< edulcni