Substrings

#include "share/atspre_staload.hats"

implement main0 () = () where
{
    val () = println! (strstr ("between", "tween"))
    val () = println! (strstr ("between", "teen"))
    val () = println! (strstr ("", "tween"))
    val () = println! (strstr ("between", ""))
}