soml-parser/test/cases/while_statement/while.tst

while(1)
  tmp = a
  puts(b)
end
-- -- --
s(:while_statement,
  s(:condition,
    s(:int, 1)),
  s(:statements,
    s(:assignment,
      s(:name, :tmp),
      s(:name, :a)),
    s(:call,
      s(:name, :puts),
      s(:arguments,
        s(:name, :b)))))