rmnk

(define (element-by-index index lis)
  (define (iter i rest-lis)
    (if (< i index)
        (iter (+ i 1) (cdr rest-lis))
        (car rest-lis)))
  (if (> index (length lis))
      (begin (print "error element-by-index")
             0)  
      (iter 1 lis)))

rmnk

a:     file format elf64-x86-64


Disassembly of section .init:

0000000000400390 <_init>:
  400390:   48 83 ec 08             sub    $0x8,%rsp
  400394:   e8 63 00 00 00          callq  4003fc <call_gmon_start>
  400399:   48 83 c4 08             add    $0x8,%rsp
  40039d:   c3                      retq

rmnk

#
# Automatically generated make config: don't edit
# Linux/x86_64 3.0.0 Kernel Configuration
#
CONFIG_64BIT=y
# CONFIG_X86_32 is not set
CONFIG_X86_64=y
CONFIG_X86=y
CONFIG_INSTRUCTION_DECODER=y
CONFIG_OUTPUT_FORMAT="elf64-x86-64"