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;
}