builtup4/std/church_numerals/double.bu4

{ (c)            /[c]/[c][c_add]                | c_double  }