#!/usr/bin/env perl
$a="";
while (<STDIN>){
	$a=$a . $_;
}
print $a =~ m/@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/;