ound (c:rest) usepos =
  foo (found ++ [usepos]) rest (nextpos c usepos)



f
foo found (c:rest) usepos =
  foo (found ++ [usepos]) rest (nextpos c usepos)
foo found (c:rest) usepos =
  foo (found ++ [usepos]) rest (nextpos c usepos)