d=: }."1 ;._1', ',(1!:1<'day01')

p=: [: +/ [: |"1 [: +. [

t=: */\0j1*<:+:'R'= {."1 d
l=: 0". }."1 d
echo p +/l*t

fd=: [ {~ 0 i.~ [: ~: [
echo p fd +/\t{~I.l

exit 0