alias md5 { 
  var %i 1,%x 1,%s,%n $len($1),%b bset -tc &a 1,%t tokenize 32,%z 271733878 1732584193 4023233417 2562383102
  %b $1€
  bset &a 983 0
  while ($bvar(&a,%i).long) var %i %i + 4,%s %s $v1
  %t %t %b %z %z %s $str($chr(32) 0,$×(15- $×(2+ %n % 64/4) % 16)) $×(8* %n) 0
  while $15- {
    while $mid(15071NRQHYW16121SL6C0M17170A0UY8R18221HR892M19071W42SA720120JUHVZE21171ANZLEB22221Y9WF0H23070T9U02G241212N4FQN25171Z135IP26221242SAM27070TUEX4228121YD3EKZ29171A6UXLA30220KG78RL16051WAEGKI21091HCCX8G26140AN93RL15201SUI4YY20051NFF7TP250900MMTEB30141O3VPMP19201SBNYYW240509EFS2U29091I5Y4EU18141VXK70N23200J8QINH28051B4ZIMD17091Y6IAK822140SP640P272013625XM20041Z0VXVM231111KX9J526160UEWT2A29231YG38Y4160419PLKXW19110L1UISP22161WGJ78G25231GXC6EO28040B9M6DI15111T3NCVU18161N2XWG521230199KHX24041OFUTKP27111S1Z2SL301608RZNJS17231IKIHR915061VQUPFO22100IMX6ZB29151BLUNJB20211Y2X1KP27060S4FB2B181013OVWYA25151Z0HIM51621111NXE923060UZBLU730101YIVXSW21151987L7828210LNFNVL19061WMGZNM26101GI624517150BVY3SR24211TCLYTT,%x,11) { 
      %s = $×(%x % 4+7)
      %t $($ $+ $left($v1,2),2) $mid($v1,3,2) $base($mid($v1,5),36,10) $replacex(%s,8,$9-10 $7,7,$8-10,10,$7-9,9,$10 $7-8) $7-
      %n = $×($($ $+ %s,2) + $iif(%x < 177,$or($and($4,$5),$and($not($4),$6)),$iif(%x < 353,$or($and($4,$6),$and($5,$not($6))),$iif(%x < 529,$xor($6,$×($xor($4,$5))),$xor($5,$×($or($4,$not($6))))))) + $1+ $3)
      %t $puttok($1-,$×($4+ %n /2^(32- $2)+ $×(%n *2^ $2)),%s,32)
      inc %x 11 
    }
    %z = $×($7+ $11) $×($8+ $12) $×($9+ $13) $×($10+ $14)
    %t $1-6 %z %z $31- 
  }
  return $lower($+($ø($8),$ø($9),$ø($10),$ø($7))) 
}
alias × return $or($calc(($1)% 2^32))
alias ø return $regsubex($base($1,10,16,8),$str((..),4),\4\3\2\1)