#lang br/quicklang
'(u-program
  (u-expr (u-atom (u-number 123)))
  (u-expr (u-sexp (u-expr (u-atom (u-id "set"))) (u-expr (u-atom (u-id "paperwidth"))) (u-expr (u-converting-num (u-number 2100)))))
  (u-expr (u-sexp (u-expr (u-atom (u-id "set"))) (u-expr (u-atom (u-id "paperheight"))) (u-expr (u-converting-num (u-number 2970)))))
  (u-expr (u-sexp (u-expr (u-atom (u-id "set"))) (u-expr (u-atom (u-id "textsize"))) (u-expr (u-converting-num (u-number 12.3)))))
  (u-expr
   (u-sexp
    (u-expr (u-atom (u-id "maintext")))
    (u-expr
     (u-series
      (u-atom "\n")
      (u-sexp (u-expr (u-atom (u-id "hd2"))) (u-expr (u-atom "我" "是" "貓" " " "I" "'" "m" " " "a" " " "c" "a" "t")))
      (u-atom "\n")
      (u-atom "天" "地" "人")
      (u-atom (u-number 123))
      (u-atom ".")
      (u-atom "\n" "\n")
      (u-atom "我" "是" "換" "行")
      (u-atom "\n"))))))
> #lang uahgi2
123
{@set|@paperheight|`2970}
{@set|@textsize|`12.3}
{@maintext|
{@hd2|我是貓 I'm a cat}
天地人123.

我是換行
}