module Main where

foreign import first
  """
  function first(xs) {
    return xs[0];
  }
  """ :: forall a. [a] -> a

foreign import loop
  """
  function loop() {
    while (true) {}
  }
  """ :: forall a. a

foreign import concat
  """
  function concat(xs) {
    return function(ys) {
      return xs.concat(ys);
    };
  }
  """ :: forall a. [a] -> [a] -> [a]

main = Debug.Trace.trace "Done"