$_,*b,c=*$<;s$_*-~$.,c.rs.lj(~/T/+1,?a)