%rolls%,0
%days%,0
%fraction%,0

:Start
1,|days=0||rolls={Dice~1d6}|{While~%rolls%>0,[Throw]|rolls-1|}
>[Format Days]

:Format Days
1,|fraction={Calc~%days%-{Trunc~%days%}}|
_{Trunc~%days%} day{If~%days% != 1 ?s}{IIf~%fraction% > 0 ?, {Calc~24*%fraction%\1} hours}

:Throw
1,|days+{Calc~{Dice~1d6}/3}|
2,|days+{Calc~{Dice~1d6}/2}|
3,|days+{Dice~2d6}|
4,|days+{Calc~{Dice~2d6}-2}|
5-6,

#Die   Tenure
#---  ------------
# 1    1d6/3 days
# 2    1d6/2 days
# 3    1d6 days
# 4    2d6-2 days
# 5    0 days
# 6    0 days