RPN.1 \Times
[p]#'3.141592653589793';
"Times"
"clear:drop all"{h!(B)d1};
~
"_° \u2019 \u201d:converts time to int" g1Vwvf#'100'*w#'60'/+v#'100'*f#'100'*w#'3600'/+;
"_<--:converts int to time" g1Vwvf#'60'*w#'100'/+v#'60'*f#'60'*g1#'59'>(#'40'+)#'10000'/+;
~
"_wp:whole integer part" w;
"_fp:fractional part" f;
"pi:" Cp;