#!/usr/bin/env escript

%% script for keycode mapping

main([]) ->
    ok = shell:start_interactive({noshell, raw}),
    dum([]).

dum(Q) ->
    io:format("~tw\r\n", [Q]),
    NewChar = io:get_chars("", 1),
    dum(Q ++ NewChar).
