thankyou int i [
 int j;j=i
 while (--j) pl "thank you!"
 ]

ritchie [
 pl"";ps "usage: .dennis 5 or .dennis 10"
 ]

dennis int q [
 /* http://primepuzzle.com/tc/ritchie.tc
 pl "";ps "goodbye, Dennis Ritchie."
 pl "";ps "you made the world a better place."
 thankyou(q+1)
 ]