main=mapM(putStrLn.(mapM id("123456">>["0A5F"])!!))$f[0,80,1280]++[1440,1365]++f[2730,2810,4010,4090] f=(>>= \x->[x,x+5])