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