自分の定義式に評価される文字列
普通に
str = x ++ show x where x = "str = x ++ show x where "
変数xを使わずに
str = (flip (++) . show . take 39) str "str = (flip (++) . show . take 39) str "
右辺に変数を使わずに
str = fix $ (. show . take 40) . (++) $ "str = fix $ (. show . take 40) . (++) $ "
数字がどうも美しくない。