(module linenoise 
  (linenoise
   history-add
   set-history-length!
   save-history-to-file
   load-history-from-file)

  (import chicken scheme)
  (import foreign)
  (use easyffi)

#>!
  #include "linenoise-src.c"
<#

(define history-add linenoiseHistoryAdd)
(define set-history-length! linenoiseHistorySetMaxLen)
(define load-history-from-file linenoiseHistoryLoad)
(define save-history-to-file linenoiseHistorySave)

)