I asked for Scheme, but if you want Haskell pester carldr on IRC
i am not aware of any major non-academic projects using haskell. i might be wrong.
map (**2) [1..5], but it might get tripped up in all that input/output handling. Monads.
e(c:j)n m f v|v==c=n
|1<2=e j(n*m)f m v
q x(y,l)|x<l=(y-x,l)
|1<2=(x+y,x)
main=getLine>>=return.fst.foldr q(0,0).map(e"IVXLCDM"1 5 2)p(){ printf $@;};e(){ echo $@;};t(){ [ $h = $1 ]&&{ [ $m = $1 ]&&e x||e h;}||{ [ $m = $1 ]&&e m||e o;};};x(){ e `t $((12-$1))` `t $1`;};a(){ p %9s\\n `t $1`;};b(){ p %5s%8s\\n `x $1`;};c(){ p %2s%14s\\n `x $1`;};d(){ p %s%16s\\n `x $1`;};read i;h=$((10#${i%:*}%12));m=$((10#${i#*:}/5));a 0;b 1;e;c 2;e;d 3;e;c 4;e;b 5;a 6