Break in core

-- RHS size: {terms: 17, types: 11, coercions: 0, joins: 0/1}
fibonacci :: Int -> Int
[GblId, Arity=1, Unf=OtherCon []]
fibonacci
  = \ (n :: Int) ->
      letrec {
        list [Occ=LoopBreaker] :: [Int]
        [LclId]
        list
          = break<10>(list)
            : (I# 1#)
              (break<9>(list)
               : (I# 1#)
                 (break<8>(list)
                  zipWith (+ $fNumInt) list (break<7>(list) tail list))); } in
      break<11>(n,list) !! list n