[{(%stdin)(r)file 40 string readline not{exit}if}loop]0{1 40{1 index{1 index 1
getinterval print}forall pop()=}for}stopped