21 lines
278 B
Text
21 lines
278 B
Text
new_frontend
|
|
|
|
notation a `**`:50 b:50 := b * a * b
|
|
notation "~" a := a+a
|
|
|
|
syntax term "+++":60 term:59 : term
|
|
|
|
syntax "<|" term "|>" : term
|
|
|
|
macro
|
|
| `($a +++ $b) => `($a + $b + $b)
|
|
|
|
macro
|
|
| `(<| $x |>) => `($x +++ 1 ** 2)
|
|
|
|
|
|
#check <| 2 |>
|
|
|
|
#check <| ~2 |>
|
|
|
|
#check <| <| 3 |> |>
|