h(1);
{
    h(.15);
    print " $r\r@{[' 'x(($t-length $g)/2)]}$g";