Seq.unfold (function
            | 0 | 0xD | 0xA -> None
            | i -> Some(i,stdin.Read())) <| stdin.Read()
        |> Seq.map (((^^^)0x20) >> char)
        |> Seq.iter (printf "%c")