module Logic

    let seq = Seq.initInfinite (fun index -> if (index % 2 = 0) then 1 else -1)

    let rec makeSeq () =
         Seq.unfold (fun n -> Some(n, (abs(n) + 1) * (seq |> Seq.skip n |> Seq.take 1 |> Seq.toArray |> Array.head ))) 1

module Tests

    open NUnit.Framework
    open FsUnit
    open Logic

    ///Не видит опять модуль, переустанавливал студию. Дикий тильт. На программу потратил 15 минут и 40 на решение проблемы.
    [<Test>]
    let ``Check seq with -2.`` () =
        Seq.exists (fun x -> x = -2) <| makeSeq () |> should equal true