mirror of
https://github.com/ton-blockchain/ton
synced 2025-02-12 19:22:37 +00:00
24 lines
633 B
Text
24 lines
633 B
Text
{ bl word 1 2 ' (create) } "::" 1 (create)
|
|
{ bl word 0 2 ' (create) } :: :
|
|
{ bl word 2 2 ' (create) } :: :_
|
|
{ bl word 3 2 ' (create) } :: ::_
|
|
{ bl word 0 (create) } : create
|
|
{ char " word 1 ' type } ::_ ."
|
|
{ char " word 1 { swap { abort } if drop } } ::_ abort"
|
|
{ dup * } : square
|
|
6 square .
|
|
{ swap ({) over 2+ -roll swap (compile) (}) } : does
|
|
{ 1 'nop does create } : constant
|
|
10 constant ten
|
|
ten .
|
|
ten ten * .
|
|
{ 1 ' emit does create } : emits
|
|
42 emits star
|
|
34 emits quote
|
|
30000 emits figna
|
|
star star quote figna quote
|
|
{ 0 word drop 0 'nop } ::_ //
|
|
star quote // end-to-line comment
|
|
{ 1 ' * does create } : mulby
|
|
3 mulby 3*
|
|
4 3* .
|