#!/usr/bin/perl -w

use strict;

$_="crypt:nhftlkkmuJAABQcEaionjiftapyvreAAAIGoLUlaA5x8A7x6A2x11A7";
$^='(.{8})(..)';/(.{5}).$^$^$^$^(.{15})/;$_=join$",unpack$10,join'',
eval"$1('$2','$3'),$1('$4','$5'),$1('$6','$7'),$1('$8','$9')";
s:^:-:;do{s?-(.)(.)?$2$1-?}until(/-$/);s+-$+\n+;print