#!perl -naF
/\./?print chr@P[$i]:/\[/?$s=$n-1:/\]/*@P[$i]?$n=$s:(@P[$i+=/>/-/</]+=/\+/-/-/)while$_=@F[$n++]