#nullable enable

#region
var _input = Array.Empty<string>();
var _iter = 0;
string String()
{
    while (_iter >= _input.Length) (_input, _iter) = (Console.ReadLine()!.Split(' '), 0);
    return _input[_iter++];
}
T I<T>() where T : IParsable<T> => T.Parse(String(), null);
#endregion


long[] Solve(long n)
{
    var impossible = new[]{ -1L };
    if (n % 8 != 0) return impossible;
    n /= 8;
    if (n >= 500)
    {
        var u = n / 12;
        return new[]{ u + n % 12, u, 0, 0 };
    }
    for (var i3 = 0; i3 * 111 <= n; i3++)
    {
        var l = n - i3 * 111;
        for (var i2 = 0; i2 * 11 <= l; i2++)
        {
            var i1 = l - i2 * 11;
            var s = i1 + i2 + i3;
            var mi = Math.Max(i1, Math.Max(i2, i3));
            if (mi * 2 < s) return new long[]{ i1, i2, i3, 0 };
        }
    }
    return impossible;
}

var tc = I<int>();
var ans = new string[tc];
for (var i = 0; i < tc; i++) ans[i] = string.Join(' ', Solve(I<long>()));
Console.WriteLine(string.Join(Environment.NewLine, ans));