# This is just a comment
#.. Block comments
    start with a #.. and
    continue until dedent

require "lib/core.nom"

say "foo"

say (-4 + (1.5 - .25))

#.. "rule" is just a macro that takes a function call spec and a block of code to run,
    and stores the function definition
rule [fart] =: say "poot"

# multi-line strings:
say ".."
    |    Once upon a time
    |there was a very


    |long string
    |
    |    with   
    |       rather
    |   silly # fake comments and
    # Real comments look like this
    |  indentation

    |   and "quotes"
    |.." (even fakeouts like that) "
    |(done)
    |    
    |^and trailing spaces
    |

say ".."|Longstrings have interpolation: \1 + 2\ <- like that

rule [doublefart] =: # this farts twice
    say "poot"
    say "poot"

doublefart

rule [subex work] =: "subexpressions work"

say (subex work)

say (..)
    subex work

say ["lists", "work"]

say []

say [..]
    1, 2
    3

rule [say both %1 and %2] =:
    say %1
    say %2

say both [..]
    1,2
..and [..]
    3,4


rule [three] =: 3
say both
.."a list:"
..and [..]
    1,2,three,4

if 1: yes
..else: no

if 1 (:yes) else (:no)

say (do: return: 5)

# Some variables
rule [do %one also %two] =:
    do %one
    do %two

do: say "one liner"
..also: say "another one liner"

say (do: return: "wow")

say (1 + (-(2 * 3)))

say (..)
    2 + (..)
        3 * 4

when:
    ? %x == 1:
        say "one"
    ? %x == 2:
        say "two"
    ? %x:
        say "nonzero"
    ?:
        say "???"

when %x:
    == 1:
        say "one"
    == 2:
        say "two"
    ==:
        say "???"


if %x:
    say "one"
..else:
    if %y:
        say "two"
    ..else:
        say "three"


say ".."
    |this is a longstring
    |
    |   with multiple lines
    |   and an interpolated expression: \2 + 5\

rule [%n bottles] =:
    lua block ".."
        |do
        |    print("running raw lua code...")
        |    for i=\%n\,1,-1 do
        |        print(tostring(i).." bottles of beer on the wall. Take one down, pass it around,")
        |    end
        |    print("no more bottles of beer on the wall.")
        |end
    nil
9 bottles

rule [dumsum %nums] =:
    %sum =: 0
    for %n in %nums:
        %sum +=: %n
    return: %sum

say (dumsum [1,2,3])