Select Code to Download

use Slang::Scheme::Guile;

guile-sub add( $a, $b ) { + $a $b }

say add(1,3); # 4

use Slang::Kanren;

...

# Find out if Jeff shares a common parent with Gerald
kanren-goal { parent('gerald',X), parent(X,'jeff') }