#!/usr/bin/perl
@_ = ((2246-2172), (2246-2129), (2246-2131),
(2246-2130), (2246-2214), (2246-2149), (2246-2136),
(2246-2135), (2246-2130), (2246-2142), (2246-2145),
(2246-2132), (2246-2214), (2246-2166), (2246-2145),
(2246-2132), (2246-2138), (2246-2214), (2246-2142),
(2246-2149), (2246-2147), (2246-2139), (2246-2145),
(2246-2132), (2246-2200));
foreach ( @_ ) { print chr(); }