#!perl -pl
($X=unpack B18,"Ðw")=~s/0|1/$_=$&?cos:sin/ge;$_=substr$_+5e-7,0,8