#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 >= 3000)
    {
        var u = n / 123;
        var l2 = n % 123 % 11;
        var l1 = n % 123 - l2 * 11;
        return new[]{ u + l1, u + l2, u, 0 };
    }
    for (var i4 = 0; i4 * 1111 <= n; i4++)
    {
        var l4 = n - i4 * 1111;
        for (var i3 = 0; i3 * 111 <= l4; i3++)
        {
            var l3 = n - i3 * 111;
            for (var i2 = 0; i2 * 11 <= l3; i2++)
            {
                var i1 = l3 - i2 * 11;
                var s = i1 + i2 + i3;
                var mi = Math.Max(Math.Max(i1, i2), Math.Max(i3, i4));
                if (mi * 2 < s) return new long[]{ i1, i2, i3, i4 };
            }
        }
    }
    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));