I like to abstract details like 60*60*24 when i can:

perl -MTime::Seconds -le'print( (-M shift) * ONE_DAY )' file
perl -MTime::Seconds -le'print( (-M shift) * ONE_DAY / ONE_MINUTE )' f
+ile
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)