object Main {

    type Data = Any;

    def foo(x: Data): String = x match {
        case Nil => ""
        case (head :: List(ys)) :: zs =>
            val body = ys match {
//              case Nil => ""
               case List() => ""
                case _ => " :- " + ys.toString()
            };
            head.toString() + body + ".\n"
                + foo(zs)
    }

    def main(args: Array[String]) = {
    	val xs = (3 :: List(4)) :: Nil;
        System.out.println(foo(xs));
    }

}