-module(s). -export([m/0]). m()->case io:get_chars('',2)of[A,B]->io:format([B,A]),m();_->0end.