30 lines
1,021 B
Text
30 lines
1,021 B
Text
|
#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.
|
||
|
|
||
|
我是換行
|
||
|
}
|