REBOL[]c: b:""while[a: input][c: join c[b{
}]b: a]prin join b c