#!/usr/bin/perl -w
use strict;
 $_='
 ???????????????????????????????????????????????????????
 ???????????????????????????????????????????????????????
 ???????????????????????????????????????????????????????
 ???????????????????????????????????????????????????????
 ???????????????????????????????????????????????????????
 ????s?r?a?n?d?;?m?y?@?c?=?(?1??.?.?9?0?)?;?????????????
 ????????????m?y????????????????????????????????????????
 ???????$?i?=?0??;??????????????????????????????????????
 ???????????????????????????????????????????????????????
 ???????????????????????????????????????????????????????
 ???????????w????h??i??le???????????????????????????????
 ????????????(???$??i?<5)???????????????????????????????
 ????????????????{??m???y$e=????????????????????????????
 ????????????????????i?n?t??????????????????????????????
 ??????????????????(??r????and??????????????????????????
 ??????????????????(?????$?????#c??-???$i)??????????????
 ?????????????????????????????????????????);????????????
 ???????????????????????????????????????????????????????
 ??????????????????????????????my??$u???=$#c-$i;????????
 ???????????????????????????($???c???[??$??e]??,????????
 ???????????????????????????????$c[???$u])??????????????
 ???????????????????????????????=?(??$??c???????????????
 ???????????????????????[??$u??],??$??c[??$e]);?????????
 ????????????????????????p?r?i?n?t?"????????????????????
 ??????????????????????$c[??????$u]\??n";???????????????
 ???????????????????????????????????????????????????????
 ?????????????????????????????$i++;}????????????????????
 ???????????????????????????????????????????????????????
 ???????????????????????????????????????????????????????
 ???????????????????????????????????????????????????????
 ???????????????????????????????????????????????????????
 ???????????????????????????????????????????????????????
';
$_=~s/\?//gm;
eval $_;