cute [
 char c(1);int n(5),s(1),p
 s(0)="Personally, I think ";s(1)=" is the cutest!"
 n(0)="Luna";n(1)="Herbie";n(2)="Peaches";n(3)="Emma";n(4)="Toby"
 n(5)="Nhung"
 pl "cutest.tc - 1/29/12"
 pl "For background, go to http://primepuzzle.com/puzzle-12-5-2007.html"
 pl "Who's the cutest?"
 pl "Toby, Luna, Herbie, Peaches or Emma?"
 pl "T, L, H, P or E? "
 c(0)=getchar
 p=index("tlhpen",6,c,1)
 if (p==6) [pl n(5);ps s(1)]
 if (p*(p<6)) [pl s(0);ps n(p-1);ps s(1)]
 ]