#!/usr/bin/perl

open(CRT,$ARGV[0]);
while (<CRT>) {
	chop;
	++$counter;
	($atomtype,$x,$y,$z,$remainder) = split(' ',$_,5);
	printf "%4s%7s%2s%-4s%9s%12.3f%8.3f%8.3f%12s\n","ATOM",$counter,"  ",$atomtype,"  R     1",$x,$y,$z,"  1.00  0.00";
}