print join ' ', $atob, $btoc, $atoc, "\n";

##</code><code>##

print qq{$atob $btoc $atoc\n};