いい勉強になった。制御文字コードの扱いなんて知らなかったけど、
http://e-words.jp/p/r-ascii.html
上記のURLなんかが役に立った。

これで Whitespaceless Hello World もばっちりだ♪

あと、おもしろかったのが、Haskell の文字入力って Ascii コードで　１０進法だったんだね～
（まあ、初心者のたわごとなので、いろいろツッコムところ満載だと思うが。。。）

もちろん初稿からは、まだまだ縮められるけど、とりあえずは置いておこう。

【初稿】209バイト

import Char
import List
f '+'=1
f '-'=(-1)
f ' '=0
f c=ord c
g[]=[]
g(x:xs)=f x:g xs
h n|n==(-1)='\31'|n==0=' '|n==1='!'|1>0=chr n
main=do cs<-getContents
        putStr$map h$map (foldl(+)0)$transpose$map g$lines cs

【修正後1】157バイト:まだ transpose などは綺麗に消せそうだ。。。

import Char
import List
f '+'=1
f '-'=(-1)
f ' '=0
f c=ord c
h(-1)='\31'
h 0=' '
h 1='!'
h n=chr n
main=interact$map h.map((foldl(+)0).map f).transpose.lines

【修正後2】151バイト:

import Char
import List
f '+'=1
f '-'=(-1)
f ' '=0
f c=ord c
h(-1)='\31'
h 0=' '
h 1='!'
h n=chr n
main=interact$map(h.foldl(+)0.map f).transpose.lines

【修正後3】147バイト:

import Char
import List
f '+'=1
f '-'=(-1)
f ' '=0
f c=ord c
h n=("\31 !"++[chr n])!!min(n+1)3
main=interact$map(h.foldl(+)0.map f).transpose.lines

根本的に考え方が間違っている気がしてきた。。。