Welcome to the CHICKEN Scheme pasting service

extKanren module-toplevel byte code dump added by sytse on Fri Feb 5 13:40:53 2021

module-toplevel (0 args): 648 ops in 1090 bytes, maxdepth 52, 0 tags, 246 constants, 9 variables
constant %uninterned:{call/goal}
constant #[byte-code: 35 bytes; vecsize=5 maxdepth=8]
fset
discard
constant %uninterned:{not-a-state}
constant #[byte-code: 7 bytes; vecsize=3 maxdepth=5]
fset
discard
constant %uninterned:{$λ/g}
constant #[byte-code: 19 bytes; vecsize=5 maxdepth=11]
fset
discard
constant %uninterned:{+$λ/g:λ+}
constant #[byte-code: 47 bytes; vecsize=8 maxdepth=12]
fset
discard
constant %uninterned:{not-a-stream}
constant #[byte-code: 7 bytes; vecsize=3 maxdepth=5]
fset
discard
constant %uninterned:{not-a-symbol}
constant #[byte-code: 7 bytes; vecsize=3 maxdepth=5]
fset
discard
constant %uninterned:{var-index}
constant #[byte-code: 14 bytes; vecsize=2 maxdepth=4]
fset
discard
constant %uninterned:{not-a-var}
constant #[byte-code: 7 bytes; vecsize=3 maxdepth=5]
fset
discard
constant %uninterned:{var

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which one-argument R5RS procedure returns 3 when given `'(1 2 3 4)' as input?
Visually impaired? Let me spell it for you (wav file) download WAV