line-mode
read-nums
left-uncons
over
head
*
double
swap
sum
<=
w( "Pass" "Fail" )
get