$d=-$d-y///cfor@a=<>;print$d>>1?'?':map$&x/./gc,(@a)x$<