to f x
output reverse bl map.se[?rest]word 0 x
end
foreach f rcs 99[foreach f reverse ?[pr reverse ?]]bye