Paste: 100 percent

: 100/ ( n -- n' )
[ 100 ] dip / ;

: 1/ ( n -- n' )
[ 1 ] dip / ;


: 100% ( n seq -- seq' )
swap 1/ [ * >float ] curry map ;