Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/identifiers/twiddle/Main.hs

module Twiddle where

main = let foo@(~(x,y)) = (1,2)
       in print foo