$res .= sprintf "%dw", $weeks   if $weeks;
    $res .= sprintf "%dd", $days    if $days;
    $res .= sprintf "%dh", $hours   if $hours;
    $res .= sprintf "%dm", $minutes if $minutes;
    $res .= sprintf '%ds', $seconds;