#!/usr/bin/env perl
use utf8;
###############################################################################
# This program strips an input stream of all non-alpha characters.
# 
# Copyright © 2017 Richard Lesh.  All rights reserved.
###############################################################################

use Utils;
use strict;
use warnings;

MAIN:
{
    binmode(STDOUT, ":utf8");
    binmode(STDERR, ":utf8");
    binmode(STDIN, ":utf8");

    my $cp;
    while (defined($cp = Utils::getchar(*STDIN))) {
        if (chr($cp) =~ m/^\p{Letter}/) {
            print chr($cp);
        }
    }
}