data $.1 =
{b "wawa"}
export
function w $main () {
@start
    %.2 =l call $scm_from_utf8_string (l $.1, l 4)
    %x0 =l call $scm_write (l %.2)
    ret %x0
}