anchor.diff:  (sqlite3_open (c-string ":memory:") database)
   
   ; create extension function
  -(define calculate (syscall 85 (cons
  +(define calculate (vm:pin (cons
      (list sqlite3_context* type-int+ (list type-vptr))
      (lambda (context argc argv)
         (print "argc: " argc)
  
positive.code:          (let ((r (* v 777)))
              (print "mul by 777: " r)
  
              (sqlite3_result_int context r))))
  ) #f #f))
  
  (sqlite3_create_function_v2 database (c-string "compress") 1 SQLITE_UTF8 #f calculate #f #f #f)
  
  
  ; sample table
  
negative.code: #!/usr/bin/ol
  (import (lib sqlite))
  (import (otus ffi))
  
  ; вспомогательный макрос для собрать в кучку все bor
  (define (OR . args) (fold bor 0 args))
  