`code`
Public Sub Part1()
Fmt.Dbg "The answer to Day 02 part 1 is 414. Found is {0}", _
Lib _
.GetAsKvpOfStrings(AoC2020Path & InputData) _
.Map(mpParamMethod(TobogganPassword, "Make")) _
.Map(mpItemMethod("IsValid", PasswordCheckSled)) _
.Filter(cpTrue) _
.Count
End Sub