eval'print!s##$\=3**/(.*)(.)\1/-$2#e;'x$<