f 7=[1,4,5]
f 3=[1]
f 5=[0,2,4]
main=getContents>>=(\x->mapM(\y->putStrLn$x!!y)$f$length x).lines