# Script by Jan-Thorben Brinkmann
reset
penup
canvassize 1000, 5070
forward 125
turnright 90
forward 700
turnright 90
fontsize 14
$bottles=99
learn write $num, $nextnum {
  print $num+" bottles of beer on the wall, "+$num+" bottles of beer.\nTake one down and pass it around, "+$nextnum+" bottles of beer on the wall"
}

repeat 98 {
  $next=$bottles-1
  write $bottles, $next
  forward 50
  $bottles=$next
}

write 1, "no more"
forward 50
write "no more", 99

pendown