soml-parser/test/cases/function_definition/function_big_while.tst

int fibonaccit(int n)
  a = 0
  b = 1
  while( n > 1 )
    tmp = a
    a = b
    b = tmp + b
    puts(b)
    n = n - 1
  end
end
-- -- --
s(:expressions,
  s(:function, :int,
    s(:name, :fibonaccit),
    s(:parameters,
      s(:parameter, :int, :n)),
    s(:expressions,
      s(:assign,
        s(:name, :a),
        s(:int, 0)),
      s(:assign,
        s(:name, :b),
        s(:int, 1)),
      s(:while,
        s(:condition,
          s(:operator, ">",
            s(:name, :n),
            s(:int, 1))),
        s(:expressions,
          s(:assign,
            s(:name, :tmp),
            s(:name, :a)),
          s(:assign,
            s(:name, :a),
            s(:name, :b)),
          s(:assign,
            s(:name, :b),
            s(:operator, "+",
              s(:name, :tmp),
              s(:name, :b))),
          s(:call,
            s(:name, :puts),
            s(:arguments,
              s(:name, :b))),
          s(:assign,
            s(:name, :n),
            s(:operator, "-",
              s(:name, :n),
              s(:int, 1))))))))