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

-- Write a Hume program to filter the letters 'k' and 'h' from the standard input stream
-- and write the result to the standard output stream.

-- Second (FSM-Hume) solution using a function definition and equality tests.

-- Kevin Hammond, 5th July 2005

program

 iskh c = c == 'k' || c == 'h';

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

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