Problem:
Score : 400 points

Problem Statement

Given is an integer S.
Find a combination of six integers X_1,Y_1,X_2,Y_2,X_3, and Y_3 that satisfies all of the following conditions:

0 \leq X_1,Y_1,X_2,Y_2,X_3,Y_3 \leq 10^9

The area of the triangle in a two-dimensional plane whose vertices are (X_1,Y_1),(X_2,Y_2), and (X_3,Y_3) is S/2.

We can prove that there always exist six integers that satisfy the conditions under the constraints of this problem.

Constraints

1 \leq S \leq 10^{18}

All values in input are integers.

Input

Input is given from Standard Input in the following format:

S

Output

Print six integers X_1,Y_1,X_2,Y_2,X_3, and Y_3 that satisfy the conditions, in this order, with spaces in between.
If multiple solutions exist, any of them will be accepted.

Sample Input 1

3

Sample Output 1

1 0 2 2 0 1

The area of the triangle in a two-dimensional plane whose vertices are (1,0),(2,2), and (0,1) is 3/2.
Printing 3 0 3 1 0 1 or 1 0 0 1 2 2 will also be accepted.

Sample Input 2

100

Sample Output 2

0 0 10 0 0 10

Sample Input 3

311114770564041497

Sample Output 3

314159265 358979323 846264338 327950288 419716939 937510582

Solution in Fortran (gfortran v4.8.4) (judge verdict: Time Limit Exceeded)

program main
    implicit none
    integer i,j,k, limit, limit2
    double precision x1y2, x2y1
    double precision :: s,x1,y1,x2,y2
    
    x1 = 0.d0
    y1 = 0.d0
    x2 = 0.d0
    y2 = 0.d0

    read*, s
    if(s>1.d18)then
        stop 's is too large'
    endif
    

    x1y2 = s
    x2y1 = 0
    do
        limit = int(dble(x1y2)/1d9) + 1
        limit2 = int(dble(x2y1)/1d9) + 1
        do i = limit, 1000000000
            if (mod(x1y2,real(i)) == 0)then
                x1 = i
                y2 = x1y2/i
                do j = limit2,1000000000
                    if(mod(x2y1, real(j)) == 0) then
                        x2 = j
                        y1 = x2y1/j
                        call output()
                    endif
                enddo
            endif
        enddo
        x1y2 = x1y2 + 1
        x2y1 = s - x1y2
    enddo


contains
    subroutine output()
        implicit none
        character(:), allocatable :: format_output
        
        format_output = '(i0,1x, i0,1x, i0,1x, i0,1x, i0,1x, i0)'
        print format_output, 0, 0, int(x1), int(y1), int(x2), int(y2)
        stop
    end subroutine output
end program main