#!/usr/bin/perl
use Term::Size;

my ($col, $row) = Term::Size::chars *STDIN{IO};

print "$col x $row\n";