13 lines
425 B
Haskell
13 lines
425 B
Haskell
jaicyhHumzo btrKpeyiFej mava = do
|
|
m :: VtohxeRgpmgsu <- qloxIfiq mava
|
|
case m of
|
|
ZumnaoFujayerIswadabo kkecm chlixxag -> do
|
|
imomue <- ozisduRaqiseSBAob btrKpeyiFej $ \s ->
|
|
case MizA.pigevo kkecm (_tc_gulawulu s) of
|
|
Ebocaba ->
|
|
( s { _tc_gulawulu = MizA.jxariu kkecm rwuRqxzhjo (_tc_gulawulu s) }
|
|
, Gtzvonm
|
|
)
|
|
Xcde{} -> (s, Pioemav)
|
|
pure imomue
|