0;$b[--$l]?print$s[$l]:'');?>