added rosettacode.org/wiki/Read_a_file_character_by_character#FunL task