use strict;use warnings;

$|=1,$.=23,$"='[*][*]=[=|=]=(=|=|=)<|:|>|<|',$"=~s:\||\[|\]|\(|\)::g;{
$:=' 'x$.,$^=' 'x(23-2*$.),($.<9)?($~=~s:\w=\s: =O:):($~='O= '),($.>0)
?($.--):($.=23),($"=~s:><:>-:)?():($"=~s:>-:><:),$_="\r".$^.$".$:.$~,
select $,,$,,$,,0.1;print&&redo}

#**=======<:><       =O