long long along(register long long l) { register long m; l <<= 1; l += 13; l = f(l); l += l; l = f(l); l += 1; l = f(l); m = g(0); m <<= 1; m = g(m); m += 1; m = g(m); l += m; l = f(l); l <<= 8; l = f(l); return l; }