#!/usr/bin/perl
use URI;
$base = $ARGV[0];
while (defined ($_ = <STDIN>)) {
	chomp;
	$_ = URI->new_abs($_, $base);
	print "$_\n";
}