E.1.2 pour dessiner une courbe de Koch

koch: long pen: pen  
   self = 0  
      ifTrue: [pen go: long]  
      ifFalse: [self - 1 koch: long / 3 pen: pen.  
         pen turn: -60.  
         self - 1 koch: long / 3 pen: pen.  
         pen turn: 120.  
         self - 1 koch: long / 3 pen: pen.  
         pen turn: -60.  
         self - 1 koch: long / 3 pen: pen]