fact = fact' 0
　　where
　　　　fact' 0 = 'う' : fact' 1
　　　　fact' 1 = 'わ' : fact' 2
　　　　fact' n = 'あ' : fact' (n+1)

main = putStrLn $ take 1000 fact