#!/usr/bin/env perl -w -0466
use strict;use Digest::SHA open(F,$0),q\sha\.(($/=<F>)!~s?!.{50}!?!!??
0:512);print+substr($/=sha512($/),$_,1)for(map{$!=95^ord;$%++%2?$!:map
{64}1..$!}q!WU\x[c]T^|M~_j^Y]]_z_PTi]o_{^`\b_|^JWU^]_u^{_{\|[@!=~?.?g)