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