home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / tests / foo < prev    next >
Encoding:
Text File  |  1988-01-15  |  428 b   |  17 lines
  1. niaM ssalC
  2. [
  3. | g f |      niam     
  4. .'elif' :nepo ; wen eliF -< f          
  5. .'w' :rof 'oof' :nepo ; wen eliF -< g          
  6. .]desrever x :etirw g | x:[ :od f          
  7. .'r' :rof 'oof' :nepo ; wen eliF -< g          
  8. .]tnirp x | x:[ :od g          
  9. .retcarahCedom f          
  10. .tnirp tsrif f          
  11. .] tnirp txen f [ :taepeRsemit 01          
  12. .tnirp )2 :ta f(          
  13. .tnirp yeKtnerruc f          
  14. .tnirp ezis f          
  15. ]
  16.  
  17.