(bind-func qr_code_print
(lambda (input_string)
(let ((code (qr_create (String input_string) 4))
(size (QRcode_size code))
(i 0)
(j 0))
(printf "\ninput_string: %s\n\n" input_string)
(dotimes (i size)
(dotimes (j size)
(if (QRcode_pixel code i j)
(printf "*")
(printf " ")))
(printf "\n"))
(QRcode_free code)
(printf "\n\n")
void)))