{(a,b)?(c,d)
            =sqrt((a-c)^2+(b-d)^2)
         ;f&g=                \p->min
        (f p)(                 g p);c
       m r p                      =abs(
      m?p-                          r);d=
    (?);     t q             f p|      q p=
   1/0      |True=          f p;h       s=((
  *s)        .);z           =h 2         (c(
  0,0                                    )15)
  &d(                                     -6,
  5)&                                     d(6
  ,5)                                    &t((
  -6<)                                   .snd
   )(h                                  2(c
    (0,     -0.5             )9));    main
      =       putStr$ unlines [[      " 0"
      !!          fromEnum          (z(x
        ,y)<                     1.2)|
          x<-[-17            ,-16.4..
              17]]|y<-[17,16..
                    -17]]}