$r="\r".' 'x$t;
print $g;