Pure and Python embedded in Guile user-init.scm

(import  (sortsmillff pure)
         (sortsmillff python))

(define pure-result
  (pure-eval
   #«
   using system;
   fprintf stderr "This is a test\nof embedded Pure code.\n" ();
   reverse [1, 2, 3, 4, 5];
   »#))

(format (current-error-port) "pure-result = ~a\n" pure-result)

(format (current-error-port) "1 + 2/3 = ~a\n"
        (pure-expr->number
         (pure-eval #« using math; 1 + 2%3 »#)))

(PyRun_SimpleString
 (string->pointer
#«
import sys
print "This is a test\nof embedded Python code."
print globals ()
»#
))