【初稿】
a 0=1189
a 1=841
a n=a(n-2)`div`2
l=length
f n x k=n++([1..k-l n-l x]>>" ")++x
main=mapM putStr\\
["A"++f(show n)(show$a(n+1))7++"mm x"++f""(show$a n)5++"mm\n"|n<-[0..10]]

【修正後1】

a 0=1189
a 1=841
a n=a(n-2)`div`2
l=length
f n x k=n++([1..k-l n-l x]>>" ")++x
s=show
main=mapM putStr\\
['A':f(s n)(s$a(n+1))7++"mm x"++f""(s$a n)5++"mm\n"|n<-[0..10]]

【修正後2】 # 使ったが縮まってない。。。

a 0=1189
a 1=841
a n=a(n-2)`div`2
l=length
n#(x,k)=n++([1..k-l n-l x]>>" ")++x
s=show
main=mapM putStr\\
['A':s n#(s$a(n+1),7)++"mm x"++""#(s$a n,5)++"mm\n"|n<-[0..10]]

【修正後3】 # 綺麗に書いたつもりが縮まらない。。。
f[n,x,y]=[n+1,div y 2,x]
g[n,x,y]=['A':n++2#n,4#x++x++"mm x",4#y++y++"mm"]
n#l=[1..n-length l]>>" "
main=mapM putStrLn$map(unwords.g.map show)$take 11$iterate f[0,841,1189]

main=putStr$init$show$pi

うーん。これなら何とか。。。

BeautifulSoup が使えそうだ。

後で　調べることにしよう。

import chardet

しても、使えなかったので、なんだろうと思ったら、

# emerge chardet

しないといけなかったんやね。。。

変数を置かずに書いてみた。
文字コードが苦手やわ～

$ nkf -g ***.txt

で確認できた！

=========================================

#! /usr/bin/python
# -*- coding: utf-8 -*-

import urllib
import re

fw = open('result.txt','w')
fw.write(re.sub("\r\n",
                "\n",
                (urllib.urlopen('http://www.yahoo.co.jp', proxies={})).read()))
fw.close()