line-mode
read-nums
left-uncons
swap
head
*
double
@3
sum
>
w( "Fail" "Pass" )
get