(use-modules (oop goops)
             (qr-code))

(define (main args)
  "Entry point."
  (let* ((qr  (qr-encode-text "hello world" #:ecl ECC-HIGH))
         (svg (qr-code->svg-image qr)))
    (display svg)
    (newline)))