entropy=:  +/@:-@(* 2&^.)@(#/.~ % #)