T2414.hs:9:13:
    Occurs check: cannot construct the infinite type: b0 ~ (Bool, b0)
    Expected type: b0 -> Maybe (Bool, b0)
      Actual type: b0 -> Maybe b0
    In the first argument of ‘unfoldr’, namely ‘Just’
    In the expression: unfoldr Just