open$h,chr${$/}*30,\q/20003644300602224438504830045048563038060810504818/if$/=\2;print substr q/unpack"C",join" ",shift(readlink) $/,$_/${$/},${$/}/2for<$h>