package Ġtests upport . stdlib Ċ Ċ fun Ġ< T > ĠList < T >. remove First Sequence ( sequence : ĠList < T >): ĠList < T > Ġ{ ĊĠ Ġval Ġfirst Index Ġ= Ġ( 0 .. ( size Ġ- Ġsequence . size )) ĊĠĠĠ Ġ. first Ġ{ Ġcontains Element AtIndex ( it , Ġsequence ) Ġ} ĊĠ Ġreturn Ġsub List ( 0 , Ġfirst Index ) Ġ+ Ġsub List ( first Index Ġ+ Ġsequence . size , Ġsize ) Ċ } Ċ Ċ private Ġfun Ġ< T > ĠList < T >. contains Element AtIndex ( starting From Index : ĠInt , Ġelements : ĠList < T >): ĠBoolean Ġ{ ĊĠ Ġreturn Ġ( starting From Index Ġuntil Ġstarting From Index Ġ+ Ġelements . size ) ĊĠĠĠ Ġ. map Ġ{ Ġget ( it ) Ġ} ĊĠĠĠ Ġ. zip ( elements ) ĊĠĠĠ Ġ. all Ġ{ Ġ( first , Ġsecond ) Ġ-> Ġfirst Ġ== Ġsecond Ġ} Ċ } Ċ