(]){(%stdin)(r)file 999 string readline pop}def]20{0]{not 4 mod 1 add 3 copy
pop get add 3 copy put pop 1 add}forall pop}repeat =