こーゆー言語が欲しい

reassign_uid_and_move name previd newid =
    each /files/$previd/x[.user_name == $name]
        move $x /files/$newid
        /files/$newid/$x.user_id := $newid

reassign_uname prevname newname =
    each /files//x[.user_name == $prevname]
        $x.user_name := $newname

assign_tid =
    each /files//x
        $x.task_id :=
            /sessions/{ .task_id | && (
                ==.user_name
                ==.device_id
                .date_begin < $x.timestamp
                .date_end > $x.timestamp) }

todo =
    reassign_uid_and_move 'Hina' 6 10
    reassign_uid_and_move 'Kiraki' 7 11
    reassign_uname 'Test@Laplace' 'Test@Lhaplus'
    assign_tid

意外とXQuery好きなのな．驚いた