-- Solutions to exercises from the Central European Functional Programming summer school
-- July 4th-16th 2005

-- Write a Hume program to filter all lower case letters from the standard input stream
-- and write the result to the standard output stream;

-- FSM-Hume solution

-- Kevin Hammond, 5th July 2005

program

 islower c = c >= 'a' && c <= 'z';

 box filterlower
 in (c::char)
 out (c'::char)
 match
   c -> if islower c then * else c;

 stream stdin from "std_in";
 stream stdout to "std_out";
 wire filterlower (stdin) (stdout);