Guile create functional class example