-module(key).

-export([run/0]).

loop() ->
	timer:sleep(10000), 
	io:format("~p~n",[now()]), 
	loop().

loop2() -> 
	Line = io:get_line("write something and press enter~n"),
	io:format("entered : ~p~n",[Line]),
	loop2(Line).

loop2("quit") -> "quit";
loop2(Line) -> loop2().

run() ->
	Thread = spawn(fun() -> loop() end),
	loop2(),
	init:stop().