#!/usr/bin/perl

#print "input RDC file name: ";
#$fname = <STDIN>;
#open(INFILE, $fname);

$err = 0.2;

while (<STDIN>) {
	chop;
	($res1,$atom1,$res2,$atom2,$rdc,$err) = split;

    printf "assign ( resid 999 and name OO )\n";
    printf "       ( resid 999 and name Z  )\n";
    printf "       ( resid 999 and name X  )\n";
    printf "       ( resid 999 and name Y  )\n";

    printf "       ( resid  %i and name %s  )\n", $res1,$atom1;
    printf "       ( resid  %i and name %s )  %f  %f\n\n", $res2,$atom2,$rdc,$err;

	}