#!/usr/bin/perl -w

use strict;

print "<a href=\"&#109;&#97;&#105;&#108;&#116;&#111;&#58;";
foreach (split("",$ARGV[0])) {
  print "&#".ord($_).";";
}
print "\"> </a>\n";