Show HN: YakshaLisp – Macros for Yaksha and Lisp Dialect(yakshalang.github.io)

  macros!{
      (defun to_fb (n) (+ (if (== n 1) "" " ") (cond
          ((== 0 (modulo n 15)) "FizzBuzz")
          ((== 0 (modulo n 3)) "Fizz")
          ((== 0 (modulo n 5)) "Buzz")
          (true (to_string n))
          )))
      (defun fizzbuzz () (list (yk_create_token YK_TOKEN_STRING (reduce + (map to_fb (range 1 101))))))
      (yk_register {dsl fizzbuzz fizzbuzz})
  }
  
  def main() -> int:
      println(fizzbuzz!{})
      return 0

  macros! {
      (defun load_string (file) (list (yk_create_token YK_TOKEN_STRING (io_read_file (map_get file "value")))))
      (yk_register {dsl load_string load_string})
  }

  def main() -> int:
      println(load_string!{"test.txt"})
      return 0

  import import_me as magic

  def main() -> int:
      println(magic.counter!{})
      println(magic.counter!{})
      println(magic.counter!{})
      return 0