$/='x?'x<>;$_=(x x$=.<>)x2;s/
//g;$b[length$&]=/o*$\/o*/while s/.//;print$#b