while(<>){
	$_= sprintf "0%b", $_;
	$_=reverse $_;
	while ( s/(1{2,})0/"-1".(0 x (-1+length($1))).1/e ){;}
	s/0$//;
	s/0|1/$& /g;
	@_=reverse (split/ /,$_);
	print "@_\n";
	}