read-num
range1
reverse
    counter
    even
b2
sort #(list,block)
leave-top
unlines