hs.cpp

/*
main = interact(decode tail(lines) ctree . head . lines)
-- the parens here are misleading, this is really just:
main = interact(decode tail lines ctree . head . lines)
-- which comes down to this due to operator precedence:
main = interact((decode tail lines ctree) . head . lines)
*/

int main()
{
  return interact( []( string input ){
    return decode( tail, lines, ctree, head( lines( input ) ) );
  } );
}