Port of Lua program to MoonScript

r={}
for s in *arg
 n=0
 s\gsub("%l",(a)->n+=a\byte!-96)\gsub("%u",(a)->n+=(a\byte!-64)*1.5)\gsub("%p",(a)->n-=1)\gsub "^R.- R.- ?R?",()->n=math.huge
 m=n/utf8.len s
 s\gsub "%d+",(a)->m-=a
 table.insert r,{s:s,n:m}
 table.sort r,(a,b)->a.n<b.n
print v.s for v in *r