1  long long
       2  f (a)
       3       double a;
       4  {
       5    double b;
       6    unsigned long long v;
       7  
       8    b = a / 2.0;
       9    v = (unsigned) b;
      10    a -= (double) v;
      11    return v;
      12  }