print map{
if(s/\?$/? /){print STDERR;$_=<STDIN>;chop}
@z=split/\|/;$z[rand@z]
}map{split/\[(.+?)\]/}<>

##</code><code>##

print map{if(s/\?$/? /){print STDERR;$_=<>;chop}@z=split/\|/;$z[rand@z]}map{split/\[(.+?)\]/}@_=<>