Vocabulary
reports.noise

Inputs
wordan object


Outputs
nan object


Definition


: badness ( word -- n )
H{
{ npick 6 }
{ 3drop 1 }
{ bi 1/2 }
{ 3dup 2 }
{ nkeep 5 }
{ over 2 }
{ 3curry 2 }
{ curry 1/3 }
{ napply 2 }
{ swap 1 }
{ 2nip 2 }
{ cleave 2 }
{ pick 4 }
{ ?if 1/2 }
{ tri* 1 }
{ spread 2 }
{ compose 1/2 }
{ 2over 4 }
{ swapd 3 }
{ 2keep 1 }
{ 3keep 3 }
{ nwith 4 }
{ 2dip 2 }
{ if 1/3 }
{ unless 1/4 }
{ ndip 5 }
{ keep 1 }
{ 2curry 1 }
{ 2dup 1 }
{ -nrot 5 }
{ 4dup 3 }
{ when 1/4 }
{ tri 1 }
{ 2drop 1 }
{ dup 1/3 }
{ nrot 5 }
{ bi@ 1 }
{ dip 1 }
{ unless* 1/3 }
{ cond 1/2 }
{ ndup 3 }
{ rot 3 }
{ case 1/2 }
{ drop 1/3 }
{ ncurry 3 }
{ when* 1/3 }
{ 4drop 2 }
{ ndrop 2 }
{ -rot 3 }
{ nip 2 }
{ bi* 1/2 }
{ with 1/2 }
{ 2swap 3 }
} at 0 or ;