use Inline::Guile;
my $g = Inline::Guile.new;

say $g.run_i('(+ 3 7)'); # 10
say $g.run_s('"boo"'); # 'boo'

##</code><code>##

say $g.run('(+ 3 7)');
say $g.run('"boo"');

##</code><code>##

use Slang::Guile;

guile-sub car( $x ) { car $x }
guile-sub cdr( $x ) { cdr $x }

use Test;

is car <a b c>, 'a';
is-deeply [ cdr <a b c> ], ['b', 'c'];

##</code><code>##

(3 "a" (7 9) "after") =>
( INTEGER, 3, STRING, "a", START-LIST, Nil, INTEGER, 7, INTEGER, 9, END-LIST, Nil, STRING, "after" )

##</code><code>##

is-deeply \$g.run(q{'(3 "a" (7 9) "after")}),
[ 3, "a", [ 7, 9 ], "after" ];