#!/usr/bin/perl
use 5.10.0;
@a=1;@b=0;for(1..<>-1){push@a,($_-$b[$a[$_-1]]);push@b,($_-$a[$b[$_-1]]);}say"@a\n@b"