content: 
  #i am macro
  
  library "a"
  
  function myfunc ( foo as Integer , bar as Float = 3.5 ) as Void
  end function
  
  sub mysub ( foo as Integer , bar as Float = 3.5 ) as Void
  end sub
  
  ' my comment
  
  Function MyCamelCaseFunction()
      lvalue = rvalue
  a=5
  a=5!
  a=5#
  a=5%
  a=5&
  
  a$=5
  a!=5
  a#=5
  a%=5
  a&=5
  
  a=a$
  a=a!
  a=a#
  a=a%
  a=a&
  
  foo()
  a.foo()
  a=a.foo()
  
  eval=5
  eval()
  a.eval()
  
  a=eval
  a=eval()
  a=a.eval()
  
  sleep=5
  sleep()
  a.sleep()
  
  a=sleep
  a=sleep()
  a=a.sleep()
  
  if a=b c=d
  if a foo()
  if a then foo()
  
  if a
  end if
  
  if a then
  end if
  
  if a
  else if
  else
  end if
  
  if a
  elseif
  endif
  
  for each a in b
  end for
  
  for a=1 to 10 step 2
  endFor
  
  for each a in b
  next
  
  while a
  end while
  
  while a
  endWhile
  
  a [ "a" , 1, foo() ] = 1
  a.foo()[1]=1
  
  a = {
      a : 1
      b : "2"
      c : function() : end function
  }
  
  b.foo("string",1,{a:b},1.5,[1,2,3])
  a = b.foo("string",1,{a:b},1.5,[1,2,3])
  
  unnamed_function = function ( a as Integer ) as Float
  
  a = +-b
  a = &h42abcdef
  c = var@attr
  end function
  
  unnamed_sub = sub ( a as Integer ) as Void
  end sub
  endFunction
  
  sub exceptions()
  	try=1
  	try()
  	try.foo
  	try foo
  
  	catch=1
  	catch()
  	catch.foo
  	catch foo
  
  	try
  	catch foo
  	end try
  
  	try ' comment
  	endtry
  
  	throw {a: "abc"}
  end sub
  
  sub inline_lambda()
  	a(a, "string")(a, "string")
  
  	a = sub()
  	end sub(a, "string", [a, foo("string")])
  
  	b = function()
  	end function(a, "string")
  
  	c = sub()
  	end sub
  end sub
  