#!perl -p$_=(@a=(head,shoulders,(knees,toes)x2),@a,eyes,ears,mouth,nose,@a)[$_%22]
0 1 7 13 20 35 37 98 543 1000
headheadshouldersshouldersearskneesearsnosekneesnoseknees
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!