#[macro_use]
extern crate lexpar;
mod ml_family;
const SRC: &str = r#"
fn f a b c d e f =
a + 2 * (f 1) + 3
123
fn id x = x
id 1
fn main args =
let a = 1
let b = 2
let c = |x| x
if a == 1 then c a else c b
if a == 1 then
c a
else if b == 1 then
c b
else
c 1
if a then
if b then
c
else
a
if a1 then if b1 then c1 else a1
// if a1 then if b1 then c1
// else
// a1
f ((x)) (id 1) z 1.1 -5 c
let a = ||
print 123
fn fib n =
let a = 0
let b = 1
if n == 0 or n == 1 then
n
else for i in 2..n do
let t = a + b
a = b
b = t
// if a1 then if b1 then c1
// else
// a1
b
let s = ""
let str = "fin\"ally"
"#;
fn main() {
ml_family::run(SRC);
}