#!/usr/local/bin/perl

$|=1;

while(<STDIN>){
	$name = $_;
	$f = substr($name, 0, 1);
	$s = substr($name, 1, 1);
	print "/afs/athena/user/$f/$s/$name";
}