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'];