久しぶりにやってみたら、若干縮まったが、ぶっちぎりの西海。。。
というか、本気で見れたものでは無いコードだと思ふ。。。

【修正前】 206バイト

g=length
r 5="\\"
r 10="\\"
r x=" "
p="\n  "
s 5=p
s 10=p
s x="\n /"
a 4="/"
a 10="/"
a x=""
b 4=""
b 10=""
b x="\\"
main=do l<-getLine;putStrLn$(r$g l)++"('-')"++(a$g l)++(s$g l)++"|_|"++(b$g l)++"\n  | |"


【修正後1】 197バイト

r 5="\\"
r 10="\\"
r x=" "
p="\n  "
s 5=p
s 10=p
s x="\n /"
a 4="/"
a 10="/"
a x=""
b 4=""
b 10=""
b x="\\"
main=do l<-getLine;let o=length l
                 putStrLn$r o++"('-')"++a o++s o++"|_|"++b o++"\n  | |"
 

【修正後2】 160バイト

q="\\"
r 4=" "
r n=q
s 4="\n /"
s n="\n  "
a 5=""
a n="/"
b 5=q
b n=""
main=do l<-getLine;let o=length l
                 putStrLn$r o++"('-')"++a o++s o++"|_|"++b o++"\n  | |"

【修正後3】 140バイト

r 4=' '
r n='\\'
s 4="\n /|_|"
s n="\n  |_|"
a 5=""
a n="/"
b 5="\\"
b n=""
p n=r n:"('-')"++a n++s n++b n++"\n  | |"
main=interact$p.length