Update simple example program

The example program provided in the readme doesn't work.
It seems that the on-key-down hook changed since the readme was written.
This takes bits from simple.scm to fix it.