(use-modules (system vm trap-state)
	     (system repl repl)
	     (system vm vm))

(set-vm-trace-level! 1)

(define oneplus
  (lambda (x)
    (+ 1 x)))

(install-trap-handler! pk)

(map oneplus '(1 2 3))