eval'print$;=3**/(.*)(.)\1/-$2;s/^/$;/;'x$$