package Ġcom . s bg . r pg . packing . packer . model Ċ Ċ data Ġclass ĠStrip ( val Ġx : ĠInt , Ġval Ġy : ĠInt , Ġval Ġwidth : ĠInt , Ġval Ġheight : ĠInt ) Ġ{ ĊĠĠĠ Ġfun Ġgrow H orizontally ( amount : ĠInt ) Ġ= ĠStrip ( x , Ġy , Ġwidth Ġ+ Ġamount , Ġheight ) ĊĊĠĠĠ Ġfun Ġgrow Vert ically ( amount : ĠInt ) Ġ= ĠStrip ( x , Ġy , Ġwidth , Ġheight Ġ+ Ġamount ) ĊĊĠĠĠ Ġfun Ġcut Left ( amount : ĠInt ) Ġ= ĠStrip ( x Ġ+ Ġamount , Ġy , Ġwidth Ġ- Ġamount , Ġheight ) Ċ } Ċ Ċ fun ĠList < Strip >. grow H orizontally ( amount : ĠInt ) Ġ= Ġthis . map Ġ{ Ġstrip Ġ-> Ġstrip . grow H orizontally ( amount ) Ġ} Ċ Ċ fun ĠList < Strip >. grow Vert ically ( amount : ĠInt ) Ġ= Ġthis . map Ġ{ Ġstrip Ġ-> Ġstrip . grow Vert ically ( amount ) Ġ}