-module(s). -export([m/0]). m()->A=hd(S=io:get_line('')),io:format([X||X<-S,A>X]++[X||X<-S,A==X]++[X||X<-S,A