sub fetchOne{ substr $str, $_[ 0 ] * 4, 4 }