set A 20 set B 80 forever { paper (<time 4>) pen (100 - <time 4>) repeat X A B { line X A X B } }