#!/usr/bin/perl -w

use strict;
use TtyTermios;

my @arr;
for (@ARGV) {
    push @arr, TtyTermios::Num($_);
}

TtyTermios::Print(@arr);