#!/usr/bin/perl
require "cuecatd.pl";
while(<STDIN>)
{
	print CueCatDecode($_,1)."\t";
	print CueCatDecode($_,2)."\t";
	print CueCatDecode($_,3)."\n";
}
exit;