#!/usr/bin/perl
use warnings;
use strict;

sub coordinate {
  print '<'.join("><",@_),">\n";
}

while (<>) {
  no strict;
  eval $_;
}