AOJの問題
「"0 0"が入力されるまで与えられた2つの数字を小さい順に並べ替え続ける」
http://judge.u-aizu.ac.jp/onlinejudge/description.jsp?id=ITP1_3_C
に下記のコードを提出したところWrong Answerになったのですが
outputはdiffコマンドで調べても正解者と同じですし
手元で動かしたところ"0 0"でも終了で正解な気がするので修正箇所の目処も立ちません。
自力での解決はギブアップなのでアドバイスお願いします。

import Data.List (sort)
exchange :: IO ()
exchange = do
　s <- getLine
　if s == "0 0" then return ()
　else do
　　putStrLn $ (unwords . sort . words) s
　　exchange

main = exchange