# Define custom syntax sugar

let : [,] tok mac
let be [:] tok
let if be
let then be [->{] tok
let do be [{] tok
let end be [}] tok
let otherwise be end let do

# Program code

let abs(n) do
	if n < 0 then -n otherwise n end
end

let fac(n) do
	if n == 1 then 1 otherwise n * fac(n-1) end
end

if let d be [15 mar 2013] date then
	d + " - abs: " + abc(-100 ) + "fac: " + fac(3) + "\n"
end