(import "newlisp.dll" "newlispEvalStr")
(import "newlisp.dll" "newlispCallback")
(define (callme p1 p2 p3) (println "p1 => " p1 " p2 => " p2 " p3 => " p3) "hello world")
(newlispCallback "callme" (callback 0 'callme) "cdecl")
(println (get-string 
	(newlispEvalStr {(get-string (callme 123 456 789))} ) ) ) ; for string return
;(get-string (newlispEvalStr {(callme 123 456 789)})) ; for number return

; return value broken after changing pushResult(cell) to deleteList(cell) in
; 10.4.4 to avoid resultStack overflow at the end of INT template() in nl-import.c

; use libffi callback instead with -DFFI compiled versions



