program abc;
var
a,b,c:integer;
x,y:integer;
begin
readln(x);
c:=x div 4;
y:=x mod 4;
case y of
0:begin a:=0; b:=0;end;
1:begin a:=0; b:=1; c:=c-1; end;
2:begin a:=1; b:=0; c:=c-1; end;
3:begin a:=1; b:=1; c:=c-2; end;
end;
writeln(a,' ',b,' ',c);
end.