Title: brew test
<% foo<-'bar' -%>
current time: <%= format(Sys.time()) %>
value of foo: <%=foo%>
<% for (i in 1:10) { -%> 
i is <%=i%>
<% foo <- paste(foo,i,sep='')
   brew((system.file("example2.brew",package='brew'))) -%>
<% } -%>