/*
Seven languages in seven days. Chapter 3 on IO, Day 3 examples
*/

Builder := Object clone

Builder forward := method( 
   writeln("<", call message name, ">") ;
   call message arguments foreach(
      arg, 
      content := self doMessage(arg); 
      if(content type == "Sequence", writeln(content)))
   writeln("</", call message name, ">"))

Builder ul( li("Io" ), li("Lua" ), li("JavaScript" ))

Builder ol( li( (1+1) asString ))