{-# LANGUAGE BlockArguments, UnicodeSyntax #-}
import Data.Functor

infix 1 ≈
x ≈ y = abs (x - y) < 0.08

main ∷ IO ()
main = putStr . unlines $
  [1, 0.9 .. -1.0] <&> \y →
    [-1, -0.9 .. 1.0] <&> \x →
      (" #" !!) . fromEnum $
        (if y<0 then abs else negate) (x*1.2 - 0.2 + 0.1 / (1.3 - y)) ≈ abs y