Use ++rep over ++can when we can
=+ (md5-pad wid dat)
:: endianness
=. dat
- %+ can 5
+ %+ rep 5
%+ turn (rip 5 dat)
- |=(a=@ 1^(rev 3 4 a))
+ |=(a=@ (rev 3 4 a))
=* x dat
=+ blocks=(div wid 512)
=+ fev=~(. fe 5)
=+ *[aa=@ bb=@ cc=@ dd=@ ee=@] :: a'..e'
|^
?: =(i blocks)
- %+ can 5
+ %+ rep 5
%+ turn `(list @)`~[h4 h3 h2 h1 h0]
:: endianness
- |=(h=@ 1^(rev 3 4 h))
+ |=(h=@ (rev 3 4 h))
=: a h0 aa h0
b h1 bb h1
c h2 cc h2
