A very simple example.   To run it, start the program 'my_guile' and
type :

       (load 'example.scm)


