#!/usr/bin/perl
$salt = join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];
chomp($word = <STDIN>);
print crypt($word, $salt),"\n";