increases the given binary number (input must be at least one digit) by one and then prints the result ; for example, giving "1111" returns "10000" ; written by Keymaker ; (:(1:::b)(c:::b)(b:::c):(0:: :b)(c:::b)(b:::c):a)(1:::a)( c:(a:(0:::n)(1:::b):(1:::n)( 0:::b):a)(b:::a):(a:(1:::n)( 0:::b):(0:::n)(0:::b):a)(b:: :a):c)(a:(1:::n)::x)(n:(1::: b)(c:::b)(b:::c):(0:::b)(c:: :b)(b:::c):a)(c:::)