/+  sr=sortug
|_  [date=@da link=?]
++  $
^-  marl
=+  [[a y] m [d h mm s f]]=(yore date)
=/  ys  %-  trip  (ud-to-cord:string:sr y)
?:  link
;=
  ;a/"{ys}":"{ys}"
  ;a/"{ys}/{<m.m>}":"/{<m.m>}"
  ;a/"{ys}/{<m.m>}/{<d.d>}":"/{<d.d>}"
==
;=
  ;span:"{ys}"
  ;span:"/{<m.m>}"
  ;span:"/{<d.d>}"
==
--