added guile foreign function interface example