line-mode
dup
read-num
16
logical-or
12
-
sign
w( " PM" "" " AM" )
get
catenate #(list+list)