#!/usr/bin/perl6
use v6;
my $t = get();
say DateTime.
new( floor( $t
/ 1e6 ) - 11644473600, timezone=>9*3600,
formatter
=>{ sprintf '%04d-%02d-%02d %02d:%02d:%02d', .
year, .
month, .
day, .
hour, .
minute, .
second } );
IyEvdXNyL2Jpbi9wZXJsNgp1c2UgdjY7CgpteSAkdCA9IGdldCgpOwpzYXkgRGF0ZVRpbWUubmV3KCBmbG9vciggJHQgLyAxZTYgKSAtIDExNjQ0NDczNjAwLCAKICAgIHRpbWV6b25lPT45KjM2MDAsCiAgICBmb3JtYXR0ZXI9Pnsgc3ByaW50ZiAnJTA0ZC0lMDJkLSUwMmQgJTAyZDolMDJkOiUwMmQnLCAueWVhciwgLm1vbnRoLCAuZGF5LCAuaG91ciwgLm1pbnV0ZSwgLnNlY29uZCB9ICk7Cg==