module util
imports libstrategolib

rules
  join(|infix) : [] -> ""
  join(|infix) : [x | xs] -> $[[x][<prejoin(|infix)>xs]]

  prejoin(|infix) : [] -> ""
  prejoin(|infix) : [x | xs] -> $[[infix][x][<prejoin(|infix)>xs]]