{-@$\#$@ TERMINATING @$\#$@-}
loop : @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@
loop n = loop (pred n)

-- pred : @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@
-- pred zero    = zero
-- pred (suc n) = n

stop : @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@
stop zero = zero
stop (suc n) = (stop n)