#!/this/is/ignored

a = 1 + 2* 3 / 6

a, bunch, go, here = another, world

func arg1, arg2, another, arg3

here, we = () ->, yeah
the, different = () -> approach; yeah

dad()
dad(lord)
hello(one,two)()
(5 + 5)(world)

fun(a)(b)

fun(a) b

fun(a) b, bad hello

hello world what are you doing here


what(the)[3243] world, yeck heck

hairy[hands][are](gross) okay okay[world]

_ = (get[something] + 5)[years]

i,x	= 200, 300

yeah = (1 + 5) * 3
yeah = ((1+5)*3)/2
yeah = ((1+5)*3)/2 + i % 100

whoa = (1+2) * (3+4) * (4+5)

_ = ->
	if something
		return 1,2,4

	print "hello"

_ = ->
	if hello
		"heloo", "world"
	else
		no, way


_ = -> 1,2,34

return 5 + () -> 4 + 2

return 5 + (() -> 4) + 2

print 5 + () ->
	_ = 34
	good nads


something 'else', "ya"

something'else'
something"else"

_ = something[[hey]] * 2
_ = something[======[hey]======] * 2
_ = something[ [======[hey]======] ] * 2


_ = something'else', 2
_ = something"else", 2
_ = something[[else]], 2
_ = something[ [[else]] ], 2

something 'else', 2
something "else", 2
something [[else]], 2

_ = here(we)"go"[12123]

split"abc xyz 123"\map"#"\printAll!

_ = f""[a]
_ = f""\b!
_ = f"".c!

f ""[a]
f ""\b!
f "".c!

list{"abc", "xyz", "123"}\map"#"\printAll!

_ = f{}[a]
_ = f{}\b!
_ = f{}.c!

-- this runs
something =
	test: 12323
	what: -> print "hello world"

print something.test

frick = hello: "world"

argon =
	num: 100
	world: (self) ->
		print self.num
		return {
			something: -> print "hi from something"
		}
	somethin: (self, str) ->
		print "string is", str
		return world: (a,b) -> print "sum", a + b

something.what()
argon\world().something()

argon\somethin"200".world(1,2)

x = -434

x = -hello world one two

hi = -"herfef"

x = -[x for x in x]

print "hello" if cool
print "hello" unless cool
print "hello" unless 1212 and 3434 -- hello
print "hello" for i=1,10

print "nutjob"

if hello then _ = 343

print "what" if cool

((...)-> arg = {...})!

x = (...) ->
	dump {...}


x = not true

y = not(5+5)


y = #"hello"

x = #{#{},#{1},#{1,2}}

_ = hello, world

something\hello(what) a,b
something\hello what
something.hello\world a,b
something.hello\world(1,2,3) a,b
something
	.hello
	\world(1,2,3) a,b


x = 1232
x += 10 + 3
j -= "hello"
y *= 2
y /= 100
y //= 100
m %= 2
hello ..= "world"

@@something += 10
@something += 10

a["hello"] += 10
a["hello#{tostring ff}"] += 10
a[four].x += 10

a.b += 1
a.b[1].c[2 + 3] += 1
with tb
	.a.c += 1

tb[] = 10
a.b.c[] = 1
x[] = if v
	1
else
	2
with tb
	.b.c[] = with vec
		.x = 1
		.y = 2
a
	.b.c
	.d\f!
	.g[] = 1

tb = {}
tb[] = 1
tb[] = 2
tb[] = 3

x = 0
_ = (if ntype(v) == "fndef" then x += 1) for v in *values


hello =
	something: world
	if: "hello"
	else: 3434
	function: "okay"
	good: 230203

tb = {
	do: b
	do :b
}

div class: "cool"

_ = 5 + what wack
what whack + 5

_ = 5 - what wack
what whack - 5

x = hello - world - something

((something = with what
	\cool 100) ->
	print something)!

if something
	_ = 03589

-- okay what about this

else
	_ = 3434


if something
	_ = yeah


elseif "ymmm"

	print "cool"

else

	_ = okay


-- test names containing keywords
x = notsomething
y = ifsomething
z = x and b
z = x andb


while 10 > something(
		something: "world"
	)
	print "yeah"

-- undelimited tables

x =
	okay: sure

yeah
	okay: man
	sure: sir

hello "no comma"
	yeah: dada
	another: world

hello "comma",
	something: hello_world
	frick: you

-- creates one table
another hello, one,
	two, three, four, yeah: man
	okay: yeah
	fine: alright

another hello, one,
	two, three, four,
	yeah: man, okay: yeah
	* fine: alright,
		okay: 1
	* fine: alright,
		okay: 2

another hello, one, two, three, four,
	yeah: man
	okay: yeah

another hello, one, two, three, four, yeah: man
	okay: yeah

ajax url,
	(data) ->
		process data,
	(error) ->
		print error

-- 
a += 3 - 5
a *= 3 + 5
a *= 3
a >>= 3
a <<= 3
a /= func "cool"

---

x.then = "hello"
x.while.true = "hello"
x
	.while
	.true = "hello"

--

x or= "hello"
x and= "hello"

--

z = a-b
z = a -b
z = a - b
z = a- b


-- cooool

str = --[[
This is a multi line comment.
It's OK.
]] strA \ -- comment 1
	.. strB \ -- comment 2
	.. strC

func --[[port]] 3000, --[[ip]] "192.168.1.1"

f = ->
	a,b, \
	c,d, \
	e,f

f = ->
	a,b \
	,c,d \
	,e,f

with obj
	invoke(
		--[[arg1]] \func!,
		--[[arg2]] 123,
		--[[arg3]] "abc"
	)

invokeA(
	invokeB(
		invokeC 123
	)
)

123
	|> invokeC
	|> invokeB
	|> invokeA

v = {
	a -1
	a(
-1)
	a \
- 1
	a-1
	a - 1
	a -
1
	a-
1
	a - --[[123]]1

	a ~1
	a(
~1)
	a \
~ 1
	a~1
	a ~ 1
	a ~
1
	a~
1
	a ~ --[[123]]1
}

do
	a = 1 \
	+ 2 \
	* 3 /
	4

	_1 = f1 -1 \
		+ 2 \
		+ 3

	_2 = f1 - 1 \
		+ 2 \
		+ 3

	f2 = (x)-> print x \
	+1

	a = f2!
	-1 |> f2

	a = f2! \
	- 1 |> f2

	_1 \
	,_2 \
	,_3 \
	,_4 = 1 \
		,f 2 \
		,3 \
		,f 4, \
			4

nil