say(([+] map {$/%%$_&&2**($//$_)*(1-0xC85D37BB4760B69B9798.base(3).comb[$_])},1..++$/)/$/)xx 50