#load"nums.cma"open Big_int
let rec f?(z=ref 0)u=String.iter(fun c->z:=Char.code c-48+ !z)(string_of_big_int(power_int_positive_int 4(read_int())));Printf.printf"%d
"!z;f u;;f 0