Segfault when printing a simple string

This segfaults on GHC 8.2.1 and 8.3.20171208

-- Segfault.hs

main = do
  let xs = [1,1,1,1,1,1,5,0,1,1,1,1,1,4,2,4,0,1,1,1,1,4,2,2,2,4,0,1,1,1,4,2,3,2,2,3,4,0,1,1,4,3,2,2,3,2,2,2,4,0,1,4,2,2,3,2,2,2,3,2,2,4,0,4,2,3,2,2,2,3,2,2,3,2,2,4,0,1,1,1,1,1,1,2,0,1,1,1,1,1,1,2]
  let f ?? x = fmap ($ x) f 

  putStrLn (traverse ((??) (!!)) xs "\n #%.t") 

when running it as

$ runghc -ignore-dot-ghci -dcore-lint -fdefer-type-errors Segfault.hs
Segmentation fault: 11

Trac metadata

Trac field	Value
Version	8.2.2
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Compiler
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture

changed weight to 5

added Tbug Trac import labels

The program in question seems to work just fine on Linux with both GHC 8.2.1 and a fairly recent head. Based on the program behavior and the Christmas keyword, I have to ask if this report is a joke.

Trac metadata

Trac field	Value
CC	- → dfeuer

closed

I ran the program again and the output seems indicative of a joke

Trac metadata

Trac field	Value
Resolution	Unresolved → ResolvedWorksForMe

added Pnormal label